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Des dizaines et des dizaines d'Apple II 
ont déjà été transformés en ser- 
veurs par leurs propriétaires, 
avec l'un ou plusieurs des e 
systèmes conçus pour 
exploiter les perfor- ; 
mances uniques de 7 + 
l care Apple Tel®. Sn 

ï Nestor: : 


pour la 
consul- 
tation d'un service d'information à partir de Minitels. Arborescence. Mots-clés. Journal cyclique. 
Jusqu'à quatre accès simultanés. De 25 à 2 000 pages Télétel. La moins chère des 
configurations mini-serveur disponibles sur le marché. 





Fakir: une puissante messagerie électronique, permettant toutes les formes 
d'interactivité. Communication individuelle, sélective ou globale. Bulletin d'infor- 
mation. Gestion des comptes. Annuaire. Pour professionnels, libéraux, associa- 
tions, collectivités. Jusqu'à 500 abonnés et 1 000 messages en attente. 


Télépom: c'est un basic orienté vidéotex et télécommunications. Pour 
créer toutes les applications télématiques dont vous rêvez: serveur uni- 
versel (texte, graphique), gestion et partage de fichiers. Télétraitement. 
Exploitation à distance de votre système. 


Sourigraph: éditeur plein écran Télétel. Très inspiré de 
«MacPainte, Sourigraph permet l'insertion, la suppression, le 
déplacement de caractères, de lignes ou de zones. Cerclez, 
tirez, cliquez, pas besoin de clavier pour travailler votre 


page Télétel. Mains libres 


$ RS Apple-Tell Minitel: ! £matesms 
> L 5 2. ’ Minitel sur Apple II " 
: . 3 de pages Télétel. Procédures atomique 
Sortie papier. Enregistrement des textes sur 
disquettes (pour traitement dans les os 
dards de l'Apple: Multiplan, Apple 
etc.). Fourni avec la carte Apple-Tell 


Et les autres: systèmes sous Pascal U.C.S.D. et 
ProDos, modules «Merveille» d'A.C.M. 
(en mono ou en multivoies), etc. 
(Consultez-nous.) 





y 
+ 





ASCII Express The Pro: un très grand stamdens 
américain des télécommunications sur Apple H « 
IBM PC, adapté à Apple-Tell. Émulation TTY, 1 
IBM 3101, Televideo 912. Procédures automatiques 
Émission et réception de fichiers. Enregistrement des à 
nées sur disquette. Impression. 300/300 et 75/1200 





‘Caractéristiques 
générales: 

+ modem 1 200/75 
(Ccite) et 300 full. 
numérotation et 
connexion 
automatiques. 

+ sorties vidéo 
composite 

(N&B) et 

Péritel 

(couleur). 








Version-Com: des fonctions comparables à celles d'ASCII-Express 
mais avec le luxe désormais inappréciable du contrôle par souris et 
des menus déroulants. Couper/Copier/Coller. Ascenseur. 








Calva-Kit: consultation entièrement automatique du serveur Calvados auquei 
sont abonnés des milliers d'utilisateurs Apple et que les Américains nous envient 
(messagerie, panneaux d'annonces, Bourse, dépèches de l'AFP, etc.). 


Discobole: transfert de disquettes par téléphone. À grande vitesse 
(120 caractères par seconde) et en toute sécurité. Dos, ProDos, Pascal, CP/M. 


Télébasic: Pomme d'Or 1984 du meilleur logiciel système. Extension télématique du 
basic Apple, permettant de programmer la carte Apple-Tell dans tous ses recoins. Ter- 
minaux automatiques, mais aussi serveurs. Par l'auteur de Version-Com. 


Basi: ce module système permet la commande du Modem de la carte ÈS 
Apple-Tell depuis le Basic, sous ProDos. V4 
HELLO 


Et les autres: capture d'adresses depuis l'Annuaire Electronique, 1, rue de Metz 
télétraitement 4 75010 PARIS 


sur Apple Il, ele. p Tél.: (1) 45.23.30.34 
(Consultez-nous.) ba Télex: 641 155 

? NO sors Nas 

P Société... 
Adresse ............... ue 
Pneus 

Î Code postal ..... lélesemrnsse 
[l [ Souhaite recevoir une documentation sur le système Apple-Tell, 
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Le chemin des écoliers, tel est souvent le pas- 
sage par le Bureau. Pour changer d'application, il suffit 
aujourd’hui d'appeler l'accessoire “Raccourci”. Après avoir 
confirmé votre intention de quitter le programme en cours, 
une fenêtre de sélection apparaît et un simple double-clic 
vous fait passer de Basic à ScreenMaker, de MacPaint à 
Multiplan et, pourquoi pas, de MacForth à MacPoker… 


Des avantages : 


Sur un 128 Ko, ne pas passer par le Finder c’est 
éviter des manipulations gourmandes en temps et 
en patience. 

Sur un 512 Ko, les applications disposent de toute la 
place mémoire. 

Sur un Mac Plus, tes changements sont quasi- 
instantanés et les 768 Ko de mémoire cache sont 
disponibles. 

Compatible avec Switcher : vous pourrez 
changer l’une ou l’autre des applications gérées par 
Switcher directement par cet accessoire. 

Compatible disques durs : même si votre dis- 
que dur est partagé via AppleTalk.… 

Disponible à tout moment, “Raccourci” est toujours 
utilisable car il ne nécessite pas une installation 
préalable des applications (sait-on toujours à 
l’avance quelles applications seront nécessaires à 
un travail donné ?). 


Avec Pom's, travaillez directement ! 








| A propos de MacDrauu… 
CETTE] 
ad litteram 
ldle 

Album 
Horloge 
Calculette 
Tableau de bord 
Sélecteur d'imprimante 


Voulez-vous quitter 
MacDrauu ? 


( Oui Ù { Annuler | 
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ans un. “Pom” Fi toujours 
ee ape ll sur la même dis- 






plus de programmes, hit aurait fait le même choix. ut à ce sujet que les sources 
sont maintenant sauvegardés sous format TEXT pour une utilisation avec tous les assembleurs. 
Les problèmes qui proviennent de la différence de syntaxe entre assembleurs seront abordés 
dans un prochain article. 


Notre stock d’articles en attente d’impression nous assure, pour de nombreux numéros, densité, 
qualité et originalité. Dans ces colonnes, prochainement, une élégante gestion d’adresses, un in- 
terpréteur doté entre autre d’un buffer clavier, l’& au secours de la souris, un écran virtuel 
style MagicWindow, un calculateur, des accessoires de bureau. En résumé : une véritable as- 
surance chômage pour Apple // et Macintosh. 


Pas de chômage non plus pour votre Z80 : J.-F. Rabasse s’est attaché à la communication en 
CP/M . La première partie de cette étude vous offre une commande pour contrôler de façon 
simple la carte série. Insistons sur le caractère autonome de chacune des deux parties ; 
désagréables en effet ces programmes qui ne fonctionnent qu’à la réception du énième numéro ! 


Dans ces pages, outre Basic, Pascal, et Assembleur, un programme pour nos tout-petits, 
illustrant l’utilisation de ToolKit d’Apple et le fort intéressant courrier de Michel Duroc à 
propos d’AppleWriter : vous avez dit diversité ? 


Ordico de Roland Jost est une nouvelle disquette Pom’s pour cruciverbistes, scrabbleurs et 
autres joueurs de mots. Au-delà de la qualité de programmation et de la rapidité de recherche, 
cette mini-base de données (d’aucuns diraient mini-BDD...) vaut par l’étendue de ses références 
dont la présentation en page 57 donne une idée. 


Nous vous donnons rendez-vous dans nos pages de novembre avec peut-être quelques éléments 
concrets sur le nouvel Apple //.. 


Ont collaboré à ce numéro : Alexandre Avrane, Jean-Luc Bazanegue, Bruno Fénard, Jean-Michel Gourévitch, Olivier 
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e programme, sans 
prétendre égaler les 
performances du Mac, 
permet de donner une 
touche très professionnelle à vos 
programmes en leur permettant 
d'utiliser le principe des fenêtres 
graphiques. 
Il permet d'ouvrir simultanément 
jusqu'à deux fenêtres graphiques 
(ce qui est suffisant dans la 
plupart des cas), la deuxième 
venant se superposer à la 
première qui est elle-même 
sauvegardée puis redessinée. 


Syntaxe 


FENETRAGE est conçu pour 
être appelé à partir d'un 
programme Applesoft, et utilise 
l'ampersand (&) comme indicatif 
d'appel. 


& OUVRE haut, bas, 
droite, gauche 


(& OUVRE 56, 136, 40, 239 ou 

& OUVRE HT,136,DR,GH par 

exemple) ouvre une nouvelle 
fenêtre d'après les coordonnées 
graphiques. Le programme 
dessine automatiquement un 
cadre autour de la fenêtre. 

Les valeurs peuvent être données 
de manière statique ou par 
l'intermédiaire de variables 
Applesoft. Elles doivent être 
comprises dans la plage 0 à 191 
en vertical, O à 279 pour 
l'horizontal. Si haut < bas, ou 
droite < gauche, le programme 
inverse automatiquement les 
coordonnées. Les dimensions 
minimum d'une fenêtre sont : 10 
points verticaux, 14 points 
horizontaux. 


CE PROGRAMME PERMET D'OUURIR 
UHE FENETRE TOUT EH CONSERUANT 
CE QU'IL Y AVAIT EH DESSOUS. 
L'UTILISATEUR PEUT FAIRE TOUT 
CE QU'IL DESIRE À L'INTERIEUR 
DE CETTE FENETRE. 


& FERME 


ferme la dernière fenêtre ouverte 
en restituant l'affichage de la 
première fenêtre. 


Le programme utilisateur peut 
écrire sur les fenêtres graphiques 
par tout moyen à sa convenance 
(HPLOT, DRAW, etc.) mais a la 
responsabilité de ne pas dépasser 
les bornes de la fenêtre qu'il a 
définie. 


Afin de minimiser l'occupation en 
mémoire de la routine 
FENETRAGE, celui-ci ne 
contrôle pas certains cas 
d'erreurs : par exemple, 
l'ouverture d'une troisième 
fenêtre graphique est autorisée 
mais détruira la première fenêtre 
qui ne pourra plus être restaurée. 


Fonctionnement 


Le programme tourne 
indifféremment sous DOS 3.3 ou 
ProDOS, et quelle que soit la 





configuration mémoire de votre 
Apple (compatibilité...). Très 
schématiquement, lorsqu'il est 
appelé, les opérations suivantes 
sont entreprises : 


* siune ouverture est demandée : 

- contrôle de la syntaxe 

- sauvegarde de l'affichage 
graphique actuel, soit en 
carte langage (si DOS 3.3 et 
une carte langage), soit en 
dessous d'Himem 

- dessin du cadre autour des 
coordonnées de la nouvelle 
fenêtre 

- mise à blanc dans le cadre de 
la nouvelle fenêtre 


- _siune fermeture est demandée : 
- restauration de l'ancienne 
fenêtre 


Il se loge à partir de l'adresse 
$9200 et manipule Himem ainsi 
que le vecteur de l'ampersand. 
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Fichiers utilisés 


démonstration en Applesoft 


HGRECR d'Eric Ringot parue 
dans le numéro 15 de Pom's pour 





FENETRAGE code objet HGRECR.LIB routine d'Eric 5 : à 
exécutable Ringot (Pom's 15) écrire facilement des caractères en 
FENETRAGES Bi HGR sans avoir à utiliser une 
Va NSP, LE programme FENETRAGE.  MOISSOn de HPLOT. 
FENETRAGE DEMO DEMO utilise la routine 
Programme 310 A$ = "APPUYEZ SUR TOUCHE, S.V.P.": CALL 
HM, A$, 10,185 


‘FENETRE.DEMO' 


1 REM FENETRAGE.DEMO 

5 PRINT CHR$ (17) | 

10 PRINT CHR$ (4)"BLOAD HGRECR.LIB, A$8000 
" 

20 PRINT CHR$ (4) "BRUN FENETRAGE" 

30 HM = 32768 

35 HOME 

40 HGR : POKE 49234, 0 

50 HCOLOR= 3: ROT= 0: SCALE= 1 

60 & OUVRE56, 136, 40, 239 

70 A$ = "CE PROGRAMME PERMET D'OUVRIR ": CA 
LL HM,A$, 50, 70 

80 A$ = "UNE FENETRE TOUT EN CONSERVANT": C 
ALL HM,A$, 50, 80 

90 A$ = "CE QU'IL Y AVAIT EN DESSOUS.": CAL 
L HM,A$, 50, 90 

100 A$ = "L'UTILISATEUR PEUT FAIRE TOUT": C 
ALL HM,A$, 50, 100 

110 A$ = "CE QU'IL DESIRE À L'INTERIEUR": C 
ALL HM,A$, 50,110 

120 A$ = "DE CETTE FENETRE.": CALL HM,A$, 50 
,120 

125 A$ = "APPUYEZ SUR TOUCHE, S.V.P.": 
HM, A$, 10,185 

130 GET A$: & FERME 


CALL 


140 & OUVRE30, 161, 80,199 

150 A$ = "SI L'APPLICATION": CALL HM,A$, 90, 
40 

160 A$ = "SORT DE LA FENETRE": CALL HM,A$,9 
0, 50 

170 A$ = "ALORS, À LA": CALL HM,A$, 90,60 

180 A$ = "FERMETURE DE CETTE": CALL HM,A$,9 
0, 70 

190 A$ = "DERNIERE, TOUT CE": CALL HM,A$, 90 
, 80 

200 A$ = "QUI À ETE MODIFIE": CALL HM,A$, 90 
, 90 

210 A$ = "EN DEHORS DE LA": CALL HM,A$, 90,1 
00 

220 A$ = "FENETRE RESTERA'": CALL HM,A$, 90,1 
10 

230 A$ = "TEL QUEL.": CALL HM,AS$, 90,120 

240 A$ = "PAR EXEMPLE:": CALL HM,A$, 90,140 


250 GET A$: & OUVRE10,175, 70,209 


260 FOR J = 7 TO 180 STEP 10: FOR I = 7 TO 


279 STEP 15 
270 A$ = "X": CALL HM,A$,I,J 
280 NEXT I,J 
290 GET A$: & FERME: GET A$ 
300 HGR : POKE 49234,0 
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320 & OUVRE10,170, 30,249 

330 A$ = "LA SYNTAXE": CALL HM,A$,9 
0, 20 

340 A$ = "CE PROGRAMME EST FAIT POUR ETRE": 
CALL HM,A$, 40,40 

350 A$ = "UTILISE EN BASIC, DONC POSSEDE": 
CALL HM,A$, 40, 50 

360 A$ = "UNE SYNTAXE TRES SIMPLE.": 
M, A$, 40, 60 

370 A$ = "POUR OUVRIR UNE FENETRE, IL": CAL 
L HM,A$, 40, 70 

380 A$ = "SUFFIT DE FAIRE:": CALL HM,A$, 40, 
80 

390 A$ = "- & OUVRE HAUT, BAS, DROITE, GAUCHE" 
: CALL HM,A$, 40, 90 


CALL H 


400 A$ = "SI HAUT EST INFERIEUR À BAS": CAL 
L HM,A$, 50, 100 
410 A$ = "LE PROGRAMME INVERSE LES": CALL H 


M, A$, 50,110 ‘ 

420 A$ = "DEUX COORDONNEES (DE MEME POUR": 
CALL HM,A$, 50, 120 

430 A$ = "DROITE ET GAUCHE) .": CALL HM,A$,5 
0,130 

440 A$ = "SI BAS-HAUT<10 ALORS BAS=HAUT+10" 
: CALL HM,A$, 50,140 

450 A$ = "DE MEME SI GAUCHE-DROITE<14 ALORS 
“: CALL HM,A$, 50,150 

460 A$ = "GAUCHE=DROITE+14": CALL HM,A$,50, 
160 

470 GET A$: & FERME 

480 & OUVRE10, 170, 30,249 

490 A$ = "LA SYN TAXE": CALL HM,A$,9 
0, 20 

500 A$ = "CECI POUR DES RAISONS DE COMMODIT 
ES": CALL HM,A$, 40, 40 

510 A$ = "AU NIVEAU DU PROGRAMME ET DE": CA 
LL HM,A$, 40,50 

520 A$ = "L'UTILISATION (ON NE PEUT RIEN'": 
CALL HM,A$, 40, 60 


530 A$ = "FAIRE DANS UNE FENETRE PLUS PETIT 
E)": CALL HM,A$, 40, 70 

540 A$ = "POUR REFERMER UNE FENETRE IL SUFF 
IT": CALL HM,A$, 40, 90 

550 A$ = "DE FAIRE:": CALL HM,A$, 40,100 

560 A$ = "- & FERME": CALL HM,A$,40,110 

570 A$ = "ALORS LA DERNIERE FENETRE OUVERTE 


“": CALL HM,A$, 50,120 
580 A$ = "EST REFERMEE.": CALL HM,A$, 50,130 
590 GET A$: & FERME 
600 & OUVRE10, 170, 90,189 
610 A$ = "FENETRAGE EST LE": CALL HM,A$, 95, 
20 





620 A$ "PROGRAMME DE": 


CALL HM,A$, 95, 30 


630 A$ = "DE FENETRE, ": CALL HM,A$,95,40 

640 A$ = "FENETRAGE.S EST": CALL HM,A$,95,5 
0 

650 A$ = "LE CODE BIG MAC.": CALL HM,A$,95, 
60 

660 A$ = "LE PROGRAMME": CALL HM,A$, 95, 80 

670 A$ = "PEUT AUSSI": CALL HM,A$, 95, 90 

680 A$ = "TOURNER SOUS": CALL HM,AS$, 95,100 

690 A$ = "PRODOS.": CALL HM,A$, 95,110 


700 GET A$: & FERME 

710 & OUVREZ20, 90,20, 259 

720 A$ = "CONCU ET REALISE PAR:": 
$,25, 30 

730 A$ = "ROZAY FREDERIC": CALL HM,A$,25,40 

750 A$ = "UN GRAND MERCI À ERICK RINGOT": C 
ALL HM,A$,25, 70 

760 A$ = "POUR LE PROGRAMME HGRECR": CALL H 
M, A$, 25, 80 

770 GET A$: & FERME 

800 FOR I = 1 TO 1000: NEXT : 


CALL HM,A 


TEXT 





Source ‘FENETRAGE.S’ 


Assembleur Big Mac 


1 
É-) RARARARRARARÉRRRÉRÉRÉR RAR RAR RAR 
K * * 
4 * AFFICHE / EFFACE UNE FENETRE * 
5 * EN GRAPHIQUE HAUTE RESOLUTION * 
6 * * 
7 * PAR F. ROZAY * 
8 * * 
9 RRRRRRRRÉRRÉRRRR RAR RAR RRÉRRRRRR RÉ 
10 
11 
12 LST OFF 
13 
14 ORG $9200 
15 
16 DEP = $06 Ptr pour dessin fenetre 
17 HBAS = $26 Adresse de la ligne HGR, 
obtenue par HPOSN 
18 LINNUM = $50 entier extrait de FAC par 
GETADR 
19 HIMEM = $73 Valeur de HIMEM 
20 CHRGET = $B1l 
21 CHRGOT = $87 
22 XD7 = $ES No de l'octet dans lequel se 
trouve le point HGR 
23 HPAGE = $E6 No de la page HGR utilisée 
($20:pagel $40:page2) 
24 
25 AMPERV = $03F6 Adresse du sous-programme à 
26-* utiliser si £ est exécutée 
27 
28 ERROR = $D412 Emission d'un message 
d'erreur (code dans X-REG) 
29 DATA = $D995 Positionne TXTPTR sur 
l'instruction BASIC suivante 
30 FRMNUM = $DD67 Prend le chiffre ou la valeur 
31 * de la variable pointée par TXTPTR et le 
range dans FAC 
32 GETBYTC = $E6F5 meme chose que FRMNUM mais 
avec des chiffres <256 
33 GETADR = $E752 Transforme FAC en un entier à 
Joe 2 octets et le range dans LINNUM 
35 HPOSN = $F411 Donne l'adresse de la ligne 
36 * avec les coordonnées du point (A:VERT X:H-LO Y:H-HI) 
37 


oo 
» 
0 
, 
‘ 
‘ 
4 
' 
L 
0 
, 
, 
+ 
4 
l 
4 
4 
+ 
+ 
+ 
* 


39 * BRANCHE LE & ” 

40 * SUR LE PROGRAMME * 

41 * FRINCIPAL = 

AD RHEEHHÉEHEHEHERERÉTE 

43 

44 HIGH LDA #<MAIN partie basse et partie haute 

45 STA AMPERV de l'adresse du début du 
programme, les range 

46 LDA #>MAIN dans AMPERV pour que le 
programme soit exécuté 

47 STA AMPERV+1 si un '&' est rencontré dans 

s le programme BASIC 

48 LDA #<HIGH change la valeur du ÆIMEM 
pour que le programme 

49 STA HIMEM ne soit pas ecrasé par les 
variables du programme 

50 LDA #>HIGH BASIC 

51 STA HIMEM+1 

52 LDA $BFO00 voit si on est sous ProDOS 

53 CMP #$4C 

54 BEQ YAPRODOS 

55 BIT $C083 voit si on a une carte 
langage 

56 BIT S$C083 

57 LDA $SFFFF 

58 CMP #$FA 

53 * BNE YA16K 

60 YAPRODOS LDA #$70 ProDOS alors on sauvera 

61 STA HSAUVE l'image à partir de $7000 

62 BIT $CO81 

63 . LDA #$FF 

64 STA HIMEM et on rechange la valeur du 

65 LDA #$6F HIMEM (->$6FFF) 

66 STA HIMEM+1 

67 RTS 

68 YA16K LDA #$E0 si on a une carte langage 

63 STA HSAUVE alors on sauvera l'image à 

70 BIT $CO081 partir de $E000 

71 RTS 

72 

73 * PROGRAMME PRINCIPAL 

74 

75 MAIN EQU * 

76 LDY #0 

77 JSR CHRGOT 

78 MAINI CMP CMD,Y prend ce qu'il y a après le 
‘£' et le compare 

79 BNE AUTRCMDI1 aux nouvelles instructions 

80 JSR CHRGET ici on compare avec "OUVRE" 

81 INY 

82 CPY #4 

83 BNE MAINI 

84 JSR GETBYTC prend la première coordonnée 

85 CPX #192 compare avec le bas de 
l'écran 

86 BCS ILLEGAL si c'est supérieur alors 
"ILLEGAL QUANTITY" 

87 STX TABLE 

88 JSR GETBYTC fait de meme avec la deuxième 
coordonnée 

89 cPX #192 

90 BCS ILLEGAL 

91 STX TABLE+1 

92 JSR CHRGET 

93 JSR FRMNUM cette fois ci c'est plus 
sérieux 

94 JSR GETADR les coordonnées peuvent 
dépasser 256 

95 JSR SEPTAL 

96 CPX #40 toujours cette comparaison 
pour voir si on sort 

97 BCS ILLEGAL de la fenetre 

98 STX TABLE+2 

99 JSR CHRGET 

100 JSR  FRMNUM et encore pour la dernière 
coordonnée 

101 JSR GETADR 

102 JSR SEPTAL 

103 CEX #40 
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104 
105 
106 
107 
108 


109 
110 
111 

112 
113 
114 
115 
116 
117 


118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 


130 
J92 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 


152 
153 
154 
155 
156 


157 
158 
159 
160 
161 


162 
163 
164 
165 
166 
167 
168 


169 
170 
171 
172 
173. 
174 
172 





AUTRCMD1 


MAIN2 


ILLEGAL 


AUTRCMD2 








ILLEGAL 
TABLE+3 
VERIFIE 
COORTK 
SAVE 
fenetre 
COORTK 
CADRE 


on sauve ce qu'il y a sous la 


et on affiche la fenetre 


DATA retour au programme BASIC 

EQU * 

LDY #5 
CHRGOT 
CMD, Y 

la commande 
AUTRCMD2 
CHRGET 


cette fois ci on compare avec 
"FERME 

BNE 
JSR 
INY 
CPY #9 
MAIN2 
COORTK 
RECUP et on referme tout simplement 


DATA retour au programme BASIC 
#$35 
ERROR 

ERROR'" 


produit un "ILLEGAL QUANTITY 


LDX #$10 


JMP  ERROR produit un "SYNTAX ERROR' 


ARRETE EEE 


* 


* 


* FENETRE ® 


* 


* 


ARR ER E 


CADRE 


CADREO 


CADRE1 


HAUT 
LDX #0 
LDY #0 
HPOSN 
GAUCHE 
(HBAS),Y affiche d'abord l'octet dans 
le coin gauche en haut 
#$70 
(HBAS) ,Y 


#57F 
(HBAS),Y puis va jusqu'au bout de la 
ligne en affichant 
un trait 
DROITE 
CADREO 
(HBAS) , Y 
+507 
droite 
(HBAS),Y 
BUFF 
BUFF 
LDX #0 
LDY #0 
HPOSN 
GAUCHE 
ligne 
{HBAS) ,Y 
+578 
(HBAS) ,Y 


affiche l'octet en haut à 


fait de meme avec la seconde 


LDA 
ORA 
STA 
INY 
LDA 
STA 
INY 


#57F 
(HBAS) , Y 
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CADRE4 


CADRES 


CADRE2 


CADRE3 


DROITE 
CADRE1 
(HBAS) ,Y 
#$0F 
(HBAS) ,Y 
BUFF 
BUFF 
LDX #0 
LDY #0 
HPOSN 
GAUCHE 
(HBAS),Y 
ligne 
#$1F 
#$1C 
(HBAS) ,Y 


affiche le trait 


et la partie droite 


et encore avec la troisième 


#$00 
(HBAS), Y maintenant remplit avec des 
octets ‘"vides' 
INY pour avoir une fenetre noire 
à l'intérieur 
DROITE 
CADRE4 
(HBAS),Y 
#$F8 affiche la partie du cadre 
qui se touve à droite 
#$1C 
(HBAS) , Y 
BUFF 
BUFF 
LDX #0 
LDY #0 
HPOSN 
GAUCHE 
(HBAS),Y 
#$0F 
#50E 
(HBAS), Y 


#50 
(HBAS) ,Y le vide 

DROITE 

CADRES 

(HBAS) ,Y 

#$F0 

#538 

(HBAS) ,Y 

BUFF cette 
toute la partie 

BUFF verticale de la fenetre 
LDX #0 
LDY #0 
HPOSN 
GAUCHE 
#507 
{(HBAS) ,Y 


fois ci on affiche 


avec d'abord l'octet à gauche 


#50 
(HBAS), Y 
puis le milieu 

DROITE 
CADRE3 
+570 
(HBAS), Y 
BUFF 
BAS 
CADRE2 
BUFF 
BUFF 
LDX #0 
LDY #0 

fait la meme 
JSR HPOSN chose qu'en haut de 1a 

fenetre mais en sens 
LDY GAUCHE inverse 
LDA (HBAS),Y 
AND #$0F 


et enfin l'octet à droite 


une fois le milieu fini on 





248 ORA #$0E 
249 STA (HBAS),Y 
250 INY 

251 LDA #$0 

252 CADRE6 STA (HBAS),Y 
253 INY 

254 CPY DROITE 
255 BNE CADRE6 
256 ‘LDA  (HBAS),Y 
257 AND #$F0 

258 ORA #$38 

259 STA (HBAS),Y 
260 INC BUFF 

261 LDA BUFF 

262 LDX #0 

263 LDY #0 

264 JSR HPOSN 
265 LDY GAUCHE 
266 LDA  (HBAS),Y 
267 AND #$1F 
268 ORA #$1C 
269 STA  (HBAS),Y 
270 INY 

271 LDA #$00 

272 CADRE? STA  (HBAS),Y 
273 INY 

274 CPY DROITE 
275 BNE CADRE? 
276 LDA (HBAS),Y 
277 AND #$F8 

278 ORA #$1C 

279 STA  (HBAS),Y 
280 INC BUFF 

281 LDA BUFF 

282 LDX #0 

283 LDY #0 

284 JSR HPOSN 
285 LDY GAUCHE 
286 LDA  (HBAS),Y 
287 ORA #$78 

288 STA  (HBAS),Y 
289 INY 

290 LDA #$7F 

291 CADRE9 STA  (HBAS),Y 
292 INY 

293 CPY DROITE 
294 BNE CADRE9 
295 LDA  (HBAS),Y 
296 ORA #$0F 
297 STA (HBAS),Y 
298 INC BUFF 

299 LDA BUFF 

300 LDX #0 

301 LDY #0 ? 
302 JSR HPOSN 
303 LDY GAUCHE 
304 LDA  (HBAS),Y 
305 ORA #$70 

306 STA  (HBAS),Y 
307 INY 

308 LDA #$7F 

309 CADRE8 STA  (HBAS),Y 
310 INY 

311 CPY DROITE 
312 BNE CADREB 
313 LDA (HBAS),Y 
314 ORA #$07 

315 STA (HBAS),Y 
316 RTS 

317 

318 *hhbtéthéthtthtéht 
319% # 

320 * SAUVE = 

321 * IMAGE->RAM Æ 
JAP * 

323 #4H4#4+#44H# #4 HR EH 

324 

325 SAVE BIT S$CO81 sauve ce qu'il y à sous la 


fenetre dans la page 


SAVE LDA 


SAVE2 INY 


HAUT 
BUFF 
BAS 
BUFF 
#0 

#0 
HPOSN 
HBAS 
DEP 
HBAS+1 
DEP+1 
HPAGE 


HSAUVE 
HPAGE 
BUFF 
#0 

#0 
HPOSN 


HPAGE 
GAUCHE 


(DEP) ,Y 
(HBAS) , Y 
DROITE 
SAVE2 
BUFF 
BUFF 

BAS 
SAVE1 


ARR REER EEE 


* 
# RECUPERE 


* 


* 


# RAM->IMAGE Ld 


* 


+ 


ARR ERÉREEEEEE 


RECUP LDA 


HAUT 


choisie au début du programme 


récupère ce qu'il y avait 


sous la fenetre 


RECUP1 


RECUP2 





BUFF 
BAS 
$co81 
BUFF 
#0 

#0 
HPOSN 
HBAS 
DEP 
HBAS+1 
DEP+1 
HPAGE 


HSAUVE 
HPAGE 
BUFF 
#0 

#0 
HPOSN 


HPAGE 
GAUCHE 


$co83 
$co83 
(HBAS) ,Y 
(DEP) ,Y 
DROITE 
RECUP2 
BUFF 
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404 445 SBC TABLE 





405 AHHEHEHHEEREEEEHEX 446 CMP #8 
406 * F 447 BCC RECALE 
407 * SEPTAL ; 448 
408 * DIVISION ” 449 VERIFI LDA TABLE+3 fait de meme avec les 
409 * PAR 7 * coordonnées horizontales 
410 * L 450 SEC 
411 #H#++#thrt 451 SBC TABLE+2 
412 452 BMI INVERSEI 
413 SEPTAL LDA #0 divise les coordonnées 453 cMÆ #2 
horizontales par 7 454 BCC RECALEI 
414 LDX LINNUM pour obtenir le numéro de 455 | 
l'octet dans lequel 456 RTS 
415 LDY LINNUM+1 se trouve le point HGR 457 
416 JSR HPOSN 458 INVERSE LDA TABLE 
417 LDX XD7 459 LDX TABLE+] 
418 RTS 460 STA TABLE+1 
419 461 STX TABLE 
420 * PREND LES 462 JMP VERIF2 
421 * COORDONNEES 463 
422 * POUR LA FENÊTRE 464 RECALE LDA TABLE 
423 465 CLC 
424 COORTK  LDA TABLE 466 ADC #8 
425 STA HAUT 467 STA TABLE+1 
426 LDA TABLE+1 468 JMP VERIFI 
427 STA BAS 469 
428 LDA TABLE+2 | 470 INVERSEL LDA TABLE+2 
429 STA GAUCHE 471 LDX TABLE+3 
430 LDA TABLE+3 472 STA TABLE+3 
431 STA DROITE 473 STX TABLE+2 
432 RTS 474 JMP  VERIFI 
433 475 
434 #*HHHHHHEEEH EEE 476 RECALEl LDA TABLE+2 
435 * ” 477 CLC 
436 * VERIFIE # 478 ADC #2 
437 * * 479 STA TABLE+3 
438 ##HHHH EEE HEHEEEX 480 RTS 
439 481 
440 VERIFIE LDA TABLE+1 compare les 2 coordonnées 482 TABLE HEX 00000000 
verticales 483 CMD ASC  "OUVREFERME" 
441 CMP TABLE les arrange à la valeur la 484 HAUT HEX 00 
plus petite de la 485 BAS HEX 00 
442 BCC INVERSE fenetre ou les inverse si la 486 GAUCHE HEX 00 
première est 487 DROITE HEX 00 
443 VERIF2  LDA TABLE+1 supérieure à la seconde 488 BUFF HEX 00 
444 SEC 489 HSAUVE HEX 00 
Réca itulation 9290- F4 94 20 45 94 20 F4 94 92D0- 95 8D 74 95 AD 70 95 A2 
p 9298- 20 C5 92 4C 95 D9 60 A0 92D8- 00 A0 00 20 11 F4 AC 72 
‘FENETRAGE’ 92A0- 05 20 B7 00 D9 66 95 DO 92E0- 95 B1 26 09 70 91 26 C8 
92A8- 17 20 B1 00 C8 CO 09 DO 92E8- A9 7F 91 26 C8 CC 73 95 
Après avoir salsi ce code sous 92B0- F3 20 F4 94 20 92 94 4C 92F0- DO F8 B1 26 09 07 91 26 
moniteur. vous le sauvegarderez par 92B8- 95 D9 60 A2 35 4C 12 D4 92F8- EE 74 95 AD 74 95 A2 00 
BSAVE FENETRAGE.A$9200,L$376 92C0- A2 10 4C 12 D4 18 AD 71 9300- AO 00 20 11 F4 AC 72 95 
. 92C8- 95 E9 03 8D 71 95 AD 70 9308- B1 26 09 78 91 26 C8 A9 


9200- A9 40 8D F6 03 A9 92 8D 
9208- F7 03 A9 00 85 73 A9 92 
9210- 85 74 AD 00 BF C9 4C FO 
9218- OD 2C 83 CO 2C 83 CO AD 


9220- FF FF C9 FA DO 11 A9 70 SI L'APPLICATION 
9228- 8D 75 95 2C 81 CO A9 FF SORT DE LA FENETRE 
9230- 85 73 A9 6F 85 74 60 A9 ALORS ; À LA 

9238- EO 8D 75 95 2C 81 CO 60 FERMETURE DE CETTE 
9240- AO 00 20 B7 00 D9 66 95 DERNIERE ; TOUT CE 
9248- DO 55 20 B1 00 C8 CO 04 QUI À ETE MODIFIE 
9250- DO F3 20 F5 E6 EO CO BO EN DEHORS DE LA 
9258- 62 8E 62 95 20 F5 E6 EO FENETRE RESTERA : 
9260- CO BO 58 8E 63 95 20 B1 TEL QUEL. , 


9268- 00 20 67 DD 20 52 E7 20 
9270- E8 94 EO 28 BO 45 8E 64 
9278- 95 20 B1 00 20 67 DD 20 
9280- 52 E7 20 E8 94 EO 28 BO 
9288- 32 8E 65 95 20 OD 95 20 
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9310- 7F 91 26 C8 CC 73 95 DO 9530- 95 AE 63 95 8D 63 95 8 1180- 6E 1E 16 3F 17 OD OD DE 


9318- F8 B1 26 09 OF 91 26 EE 9538- 62 95 4C 15 95 AD 62 95 1188- 07 00 20 8D 3A 3F 77 31 
9320- 74 95 AD 74 95 A2 00 AO 9540- 18 69 08 8D 63 95 4C 20 1190- 05 00 89 F6 04 00 3F 4C 
9328- 00 20 11 F4 AC 72 95 B1 9548- 95 AD 64 95 AE 65 95 8D 1198- 11 35 00 12 05 00 OC 0C 
9330- 26 29 1F 09 1C 91 26 C8 9550- 65 95 8E 64 95 4C 20 95 11A0- D6 DA 1E 06 00 0C 25 1C 
9338- A9 00 91 26 C8 CC 73 95 9558- AD 64 95 18 69 02 8D 65 11A8- 3F 17 36 2E 1E 0E 2D 0C 
9340- DO F8 B1 26 29 F8 09 1C 9560- 95 60 00 00 00 00 4F 55 11B0- 24 07 00 24 BC 96 31 17 
9348- 91 26 EE 74 95 AD 74 95 9568- 56 52 45 46 45 52 4D 45 11B8- 2D 04 00 65 E4 3F 17 95 
9350- A2 00 AO 00 20 11 F4 AC 9570- 00 00 00 00 00 00 11C0- BA 2E 2D 25 00 25 OC 3C 
9358- 72 95 B1 26 29 OF 09 0E 11C8- 3F B7 92 15 2D OC 24 00 
9360- 91 26 C8 A9 00 91 26 C8 11D0- 3A 27 OC OC 0C 36 36 F5 
9368- CC 73 95 DO F8 B1 26 29 « : 11D8- 3E 00 38 27 2C 2D F5 AA 
9370- FO 09 38 91 26 EE 74 95 Récapitulation 11E0- 36 1E 3F 1C 04 00 AD F6 
9378- AD 74 95 A2 00 AO 00 20 ‘HGRECR LIB’ 11E8- 3F 1C 24 25 OC OC 35 00 
9380- 11 F4 AC 72 95 A9 07 91 . 11F0- 0C 0C 3C 3F 77 92 36 05 
9388- 26 C8 A9 00 91 26 C8 CC 11F8- 00 E7 64 2D 15 BE 15 F6 
9390- 73 95 DO F8 A9 70 91 26 Après avoir saisi ce code sous 1200- 3F 1C 2C 00 E7 64 2D 15 
9398- AE 74 95 EC 71 95 DO D5 moniteur, vous le sauvegarderez par 1208- 36 77 1E 17 3F 04 00 08 
93A0- EE 74 95 AD 74 95 A2 00 BSAVE HGRECR.LIB,A$1000,L$39B 1210- 16 06 00 08 16 BE 05 00 
93A8- AO 00 20 11 F4 AC 72 95 1218- 91 E2 1C 1C OC OC OC 06 
93B0- B1 26 29 OF 09 0E 91 26 1000- 20 58 FF BA CA CA 9A 18 1220- 00 38 67 89 B5 3F 3F 04 
93B8- C8 A9 00 91 26 C8 CC 73 1008- 68 69 A6 85 CE 68 69 00 1228- 00 93 62 OC OC 1C 1C 1C 
93C0- 95 DO F8 B1 26 29 FO 09 1010- 85 CF A5 E4 48 A5 E7 48 1230- 06 00 OC OC 1C 3F 17 95 
93C8- 38 91 26 EE 74 95 AD 74 1018- 20 BE DE 20 E3 DF 20 6C 1238- OA 16 05 00 30 2E 2C 24 
93D0- 95 A2 00 AO 00 20 11 F4 1020- DD AO 00 B1 83 85 08 C8 1240- 1C 3F 17 36 36 0E 2D 25 
93D8- AC 72 95 B1 26 29 1F 09 1028- B1 83 85 06€ C& B1 83 85 1248- 00 3A 37 6E 09 24 67 E4 
93E0- 1C 91 26 C8 A9 00 91 26 1030- 07 20 BE DE 20 05 E1 A5 1250- 1C 1E 1E 2E 00 3F 24 2C 
93E8- C8 CC 73 95 DO F8 B1 26 1038- A1 85 E0 A5 AO 85 E1 20 1258- 2D 15 BE 0E BE 3F 27 2C 
93F0- 29 F8 09 1C 91 26 EE 74 1040- F5 E6 @6 E2 A9 01 85 E7 1260- 00 89 F2 3F 1C 24 24 0C 
93F8- 95 AD 74 95 A2 00 AO 00 1048- A0 00 98 48 B1 06 48 A9 1268- 2D 15 06 00 09 36 1E 3F 
9400- 20 11 F4 AC 72 95 B1 26 1050- 00 85 E4 A9 3F 20 58 FF 1270- 27 24 24 2C 2D 15 3E 00 
9408- 09 78 91 26 C8 A9 7F 91 1058- 50 26 A9 7F 85 E4 68 38 1278- 39 B7 3A 24 24 24 2D 2D 
9410- 26 C8 CC 73 95 DO F8 B1 1060- E9 1F 20 58 FF 50 19 18 1280- 96 92 3F 04 00 39 B7 1A 
9418- 26 09 OF 91 26 EE 74 95 1068- A5 E0 69 06 85 EO DO 02 1288- 24 24 24 2D 2D 06 00 11 
9420- AD 74 95 A2 00 A0 00 20 1070- E6 E1 68 A8 C8 C4 08 DO 1290- 35 3E 3F 1C 24 24 OC 2D 
9428- 11 F4 AC 72 95 Bl 26 09 1078- D1 68 85 E7 68 85 E4 60 1298- 35 00 2B 2D 24 FC 1B 36 
9430- 70 91 26 C8 A9 7F 91 26 1080- BA CA CA 9A OA A8 B1 CE 12A0- 36 36 4D 21 24 00 52 3A 
9438- C8 CC 73 95 DO F8 B1 26 1088- 18 65 CE 48 C8 B1 CE 65 12A8- 67 24 24 3C 2D 06 00 9B 
9440- 09 07 91 26 60 2C 81 CO 1090- CF 48 A6 EO A4 El A5 E2 12B0- 72 2D OC 24 24 3C 00 73 
9448- AD 70 95 8D 74 95 EE 71 1098- 20 11 F4 68 A8 68 AA A9 12B8- 0E 15 DF 23 24 24 6C 09 
9450- 95 AD 74 95 A2 00 AO 00 10A0- 00 20 01 F6 2C 58 FF 60 12C0- 1E 1E 06 00 89 12 3F 3F 
9458- 20 11 F4 A5 26 85 06 A5 10A8- 3F 00 80 00 84 00 8A 00 12C8- 24 24 24 05 00 EO0 1C 36 
9460- 27 85 07 A5 E6 48 AD 75 10B0- 90 00 9D 00 AA 00 B5 00 12D0- 36 36 4D 21 24 24 BC 06 
9468- 95 85 E6 AD 74 95 A2 00 10B8- C1 00 C5 00 CD 00 D5 00 12D8- 00 0E 56 24 24 24 DF 33 
9470- AO 00 20 11 F4 68 85 E6 10C0- E2 00 EA 00 EE 00 F3 00 12E0- 2E LE 36 2E 00 92 E7 24 
9478- AC 72 95 88 C8 B1 06 91 10C8- F6 00 FD 00 0B 01 13 01 12E8- 24 OC 2D 15 36 36 17 05 
9480- 26 CC 73 95 DO F6 EE 74 10D0- 1D 01 28 01 32 01 3E 01 12F0- 00 65 3C 38 3F 36 2E 1E 
9488- 95 AE 74 95 EC 71 95 DO 10D8- 48 01 51 01 5C 01 67 01 12F8- 36 05 00 AA 15 1F 3F 20 
9490- CO 60 AD 70 95 8D 74 95 10E0- 6B 01 70 01 79 O1 81 O1 1300- 24 64 2D 15 36 36 00 77 
9498- EE 71 95 2C 81 CO AD 74 10E8- 8A 01 94 01 A1 01 AD 01 1308- 15 15 DF 23 24 24 2C 2D 
94A0- 95 A2 00 AO 00 20 11 F4 10F0- B9 01 C4 01 DO O1 DD 01 1310- 15 BE 06 00 E7 64 2D 15 
94A8- A5 26 85 06 A5 27 85 07 10F8- E7 01 F2 01 FE 01 07 O2 1318- 97 15 F6 3F 1C 04 00 24 
94B0- A5 E6 48 AD 75 95 85 E6 1100- OF 02 1C 02 25 02 31 02 1320- 1F 28 2D F5 92 33 2E 00 
94B8- AD 74 95 A2 00 AO 00 20 1108- 3D 02 49 02 53 02 5F 02 1328- 92 E7 24 24 6C 09 36 36 
94C0- 11 F4 68 85 E6 AC 72 95 1110- 6C 02 77 02 80 02 8B 02 1330- BE 05 00 92 1C 1C 24 24 
94C8- 88 C8 2C 83 CO 2C 83 CO 1118- 96 02 A2 02 AE 02 B7 02 1338- 4D 31 36 BE 06 00 F6 1E 
94D0- B1 26 91 06 CC 73 95 DO 1120- C2 02 CA 02 D1 02 D9 02 1340- 24 24 24 4D 31 36 BE 35 
94D8- FO EE 74 95 AE 74 95 EC 1128- 5B 49 02 00 52 22 20 24 1348- 07 00 OC OC FC 1B 76 16 
94E0- 71 95 DO B7 2C 81 CO 60 1130- 2C 00 08 24 1F 36 06 00 1350- 17 6E 09 E4 04 00 1C 1C 
94E8- A9 00 A6 50 A4 51 20 11 1138- 3A 67 3C OC 6C BE 2D 1E 1358- 6C 09 F6 D6 36 05 00 OC 
94F0- F4 A6 E5 60 AD 62 95 8D 1140- 2E 1E FE 2C 00 E7 OC 25 1360- OC 3C 3F 77 92 17 2E 2D 
94F8- 70 95 AD 63 95 8D 71 95 1148- 15 F5 AB 15 1F 15 3F 77 1368- 25 00 24 2C B5 D2 33 2E 
9500- AD 64 95 8D 72 95 AD 65 1150- 29 00 OC 0C DC 3B 2E 96 1370- 2D 00 1C 1C 56 4A 0E 06 
9508- 95 8D 73 95 60 AD 63 95 1158- 17 4D 2E 24 00 60 1C. BF 1378- 00 24 3C B7 52 31 3E 3F 
9510- CD 62 95 90 19 AD 63 95 1160- AE 17 76 65 1C OD 16 07 1380- 00 25 3F 36 2D 25 24 3F 
9518- 38 ED 62 95 C9 08 90 1D 1168- 00 08 24 05 00 92 1C 1C 1388- 3F 36 36 2D 2D 25 24 24 
9520- AD 65 95 38 ED 64 95 30 1170- 24 OC OC 06 00 92 OC 0C 1390- 3F 3F 3F 36 36 36 2D 2D 
9528- 20 C9 02 90 2B 60 AD 62 1178- 24 1C 1C 06 00 3C 1C 4C 1398- 2D 05 00 
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Des disquettes sans DOS... 


Des disquettes qui se présentent. 


Des disquettes en 35 ou 36 pistes. 


... BOOTDATA 


Dominique Ottello 


Suite aux diverses interventions 
de lecteurs concernant l'utilisation 
de la 36ème piste (voir par 
exemple le numéro 23 de Pom's), 
voici un petit utilitaire qui permet 
d'automatiser le processus 
d'agrandissement d'une disquette 


Il fonctionne avec le DOS 3.3 
(48Ko) standard, ainsi qu'avec le 
Diversi-DOS. Le source est en 
Big Mac et contient, aux lignes 
565 à 569, le texte du message à 


afficher lors du boot. Ce texte 
peut être remplacé par celui de 
votre choix, dans la limite de 256 
octets entre les étiquettes TOSO et 


FIN. G 


DOS 3.3. 
Comment faire ? 


Il permet en particulier : 
. 2e formater une disquette sur Après avoir fait “BRUN BOOTDATA" cette liste de CALLS apparaît : 
pistes ; 
* de formater une disquette sur 
36 pistes ; Opération Lecteur 1 Lecteur 2 


* de libérer les pistes 1 et 2, en 
effaçant le DOS (sans effacer 
les fichiers éventuellement 
présents) ; 

° d'inscrire un message d'aver- 
tissement sur la piste 0, secteur habituellement par le DOS : 

0, affiché lors du boot de cette Initialisation 35 pistes et opérations 1 et 
disquette. 2: 
Idem 3 mais en 36 pistes : 


Message lors du boot sur la disquette de 
données : 
Libération des pistes 1 & 2 occupées 


768 PA 


774 777 


780 
786 


783 
789 


Ainsi, pour créer une disquette de DATAs dans le lecteur 2, sur 36 
pistes, vous ferez CALL 789. Pour libérer les pistes 1 & 2 puis inscrire 
un message en cas de boot, vous ferez CALL774 puis CALL 768 si 
l'opération concerne le lecteur 1. 


Son utilisation est très simple : 
BRUN BOOTDATA 

affiche une suite de valeurs de 
CALL, qu'il suffit de lancer pour 
exécuter l'une des quatre 


opérations ci-dessus. Attention : disquettes DOS 3.3 seulement... 





MOTOROFF EQU $CO088 sArrêt moteur 
Source ‘BOOTDATA.S" DISKOI FQU SCOBA  iLecteur 1 
Assembleur Merlin DISKO2 EQU $C08B ‘Lecteur 2 
06H EQU $CO8D ;Utilisé pour recherche 
Q7L EQU S$CO8E disquette protégée 
ORG $3000 ‘/ à 
*+ * 
CTOSODI EQU S$300 ; CALL en 768 REG1 EQU $19 ; Sauvegarde 
CTOSOD2 EQU $303 ;CALL en 771 REG2 EQU $1A ÉREEEEEETE 
CP1P2D1 EQU $306 : CALL en 774 FLAGERR EQU $1C ;Drapeau erreur 00 pas erreur 
CPIP2D2 EQU $309 ; CALL en 777 * 
CIN35D1 EQU $30C :CALL en 780 sf 
CIN35D2 EQU $S30F :CALL en 783 RARRRRRRRRRÉRÉRÉRÉRRRRRRÉRRRRRRRÉRRE 
CIN36D1 EQU $312 ;CALL en 786 * IMPLANTATION DES CALL = 
CIN36D2 Equ $315 : CALL en 789 RRRRARRRRÉRRÉRRÉÉRARRRÉRÉRRRARRRRÉRRÉ 
* * 
RATS EQU $3D9 ;Routine DOS écriture secteur x 
COUT EQU  $FDED sRoutine sortie caractère LDA #$4C 
HOME EQU $FC58 ;Routine effacement écran STA CTOSODI ;Implantation CALL en 768 
* STA CTOSOD2  Persovsesoose ose (ne 771 
CATALOG EQU  $AE9E ;Routine DOS contruction de STA CP1P2D1 fonsssssnsnee neue ee 774 
ui la piste $11 (catalog et VTOC) STA CPI1P2D2 Érssrognenes lus Ce 777 
MOTORON EQU $C089 ;Mise en route moteur STA (CINSSDI  pédessenaee Gene le 780 
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STA CIN35D2 fonvonersssss vue 783 
STA CIN36D1 onsnnnnnness su. 786 
STA CIN36D2 fossssosssres vec 789 
LDA #ITOSODI 
STA CTOSOD1+1 


LDA #>ITOSOD1 
STA CTOSOD1+2 
LDA #ITOSOD2 
STA CTOSOD2+1 
LDA #>ITOSOD2 
STA CTOSOD2+2 
LDA #P1P2D1 
STA CPIP2D1+1 
LDA .#>P1P2D1 
STA CP1P2D1+2 
LDA #P1P2D2 
STA CP1P2D2+1 
LDA #>P1P2D2 
STA CP1P2D2+2 
LDA #IN35D1 
STA CIN35D1+1 
LDA #>IN35D1 
STA CIN35D1+2 
LDA #IN35D2 
STA CIN35D2+1 
LDA 4#>IN35D2 
STA CIN35D2+2 
LDA #IN36D1 
STA CIN36D1+1 
LDA #>IN36D1 
STA CIN36D1+2 
LDA #IN36D2 
STA CIN36D2+1 
LDA #>IN36D2 
STA CIN36D2+2 


* 
* 
ÉTÉRÉLLÉLLLILISIILL SITE ET ES SE SSL IL :) 
* MESSAGES DES CALL * 
CÉTELELEELLIELILIELI LIL LLLLLLLLLLLLE) 


* 


JSR S$SFE84 Mode NORNAL 

JSR $FB2F Mode TEXT 

JSR $FE89 ;Clavier en entrée 
JSR $FE93 ;Vidéo en sortie 
JSR HOME 


LDA #LISTCALL 

STA REGI1 

LDA #>LISTCALL 

STA REG2 

LDY 4#$00 
BCLCALL LDA (REG1),Y 

BEQ IREG 

CMP #$FF 

BEQ RETCALL 

JSR COUT 
IREG INC REGI 

BNE CALL1 

INC REG2 
CALL1 BNE BCLCALL 
RETCALL LDA #$10 


STA $22 ;Fenetre texte haute 
RTS 

* 

LISTCALL ASC 4 
INV "LISTE DES CALL"8D8D 


PO ASC 

ASC "Lecteur 1:768 * Lecteur 2:771"8D8D 
P12 ASC "Libération piste 1 et 2"8D00 

ASC "Lecteur 1:774 * Lecteur 2:777"8D8D 
135 ASC ‘"Initialisation 35 pistes"8D00 

ASC "Lecteur 1:780 * Lecteur 2:783"8D8D 
136 ASC "Initlalisation 36 pistes"8D00 

ASC "Lecteur 1:786 * Lecteur 2:789"8D8D 


INV "TAPER CALL XXX" 

ARE +"8D8D8D8DFF 
VTO ASC "Construction CATALOG et VTOC"8D00 
P36 ASC "Libération piste 36"8D00 
CAT ASC "Mise à jour VTOC"8D00 


RÉÉRÉRRRÉRRRÉÉRRÉÉÉRRÉRÉRÉRRRRÉREÉ 


* ECRITURE PISTE O0 SECTEUR 0 - 


ÉRRRRRRRRRRERRRÉRRRRÉRÉRRÉÉRÉRÉRER 


* 

* 

ITOSOD1 LDA 
STA 
BNE 

ITOSOD2 LDA 
STA 

ITOSOA JSR 

ITOSO LDA 


BCLO LDA 


#$501 
LECTEUR 
ITOSOA 
#$02 
LECTEUR 
PROTEC 
#$00 
FLAGERR 
#P0 

REG1 
#>P0 
REG2 
MESSAGE 
#500 
TOSO,Y 
TAMPON, Y 


#SFF 
BCLO 
#$00 
VOLUME 
#$500 
PISTE 
4500 
SECTEUR 
#502 
COMMANDE 
RWDISK 


;Lecteur 1 


Lecteur 2 


;Mise à zéro ERREUR 


;Chargement Tampon IOB pour BOOT 


Numéro volume 
;Numéro piste 
;Numéro secteur 


; Commande écriture 


RRRRÉRRRRRRRÉARÉRÉRÉRRAÉÉÉRRRRÉRARRÉ 


* LIBERATION PISTES 1 ET 2 * 


RRRARRRRRRRÉRRRRRARRÉRARRR ARR RAR É 


"Ecriture message piste 0 secteur 0"8D00 


* 
* 


P1P2D1 LDA 


P1P2D2 LDA 


P1P2A JSR 
P1P2 LDA 


4501 
LECTEUR 
P1P2A 

#502 
LECTEUR 
PROTEC 
#$00 
VOLUME 

#511 

PISTE 

#500 
SECTEUR 
#501 
COMMANDE 
#P12 

REG1 

#>P12 

REG2 
MESSAGE 
RWDISK 
#SFF 
TAMPON+$3C 
TAMPON+S$3D 
TAMPON+S$40 
TAMPON+$41 
#502 
COMMANDE 
RWDISK 


;Piste $11 (dec:17) Catalogue 
;Secteur 0 VTOC 


;Commande lecture 


;Correspond à 8 secteurs libres 
sPiste 1 secteurs F à 8 

SPISES, L'isssaence (7400 

sPiste 2.5 Fes 

ÉPISTS L'osoonese 74 0 

; Commande écriture 
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RTS STA REG2 
*# JSR MESSAGE 
s LDA #CAT 
RÉRARÉRRARÉRRÉRRÉARÉRÉRÉAÉRÉRÉARÉRÉÉRÉRÉ STA REG1 
* INITIALISATION NORMALE (35) * LDA #>CAT 
RÉRRARRRRRRRRRRRRRRRRRR RAR ARR RR RÉ STA REG2 
2 JSR MESSAGE 
Le LDA #5$11 sPiste 17 Catalogue 
IN35D1 LDA #$01 STA PISTE 
STA LECTEUR LDA #$500 ;Secteur 0 VTOC 
BNE IN35A STA SECTEUR 
IN35D2 LDA 4#$02 LDA 4#$01 :Ordre de lecture 
STA LECTEUR STA COMMANDE 
IN35A JSR PROTEC JSR RWDISK 
LDA 4#135 LDA #$SFF ;8 secteurs libres 
STA REGI STA TAMPON+$SC4 ;Piste 36 secteurs F à 8 
LDA #>135 STA TAMPONH$SCS jo. oo veoocvoe 7 à 0 
STA REG2 LDA #$24 
JSR MESSAGE STA TAMPON+$34 ; Indique $24 piste en VTOC 
IN35 LDA 4#5$04 ;Commande FORMAT LDA #$02 ;Ordre écriture 
STA COMMANDE STA COMMANDE 
LDA 4#$00 JSR RNDISK 
STA VOLUME RTS 
JSR RNWDISK * 
LDA 4#$60 :Implantation d'un code RTS * 
* pour éviter l'écriture du DOS thhhhhhhhhhhhhhtté ht ht ht 
# sur la disquette lors de l'INIT * LECTURE OU ECRITURE DES * 
STA S$AEFF #* SECTEURS DU DISQUE * 
LDA LECTEUR ;Implantation numéro lecteur RRRRRRRR*RRR RÉ RÉ RAR ht h 
* dans la routine INIT du DOS È 
STA $B5F8 R 
LDA  #VTO | RWDISK LDA 4#$00 Mise à zéro des erreurs 
STA REGI STA ERREUR 
LDA #>VTO LDA #$FF Mise à FF du drapeau erreur 
STA REG2 STA FLAGERR 
USR MESSAGE LDA #>I0B ;Partie haute adresse IOB 
JSR CATALOG LDY #<I0B gPartie basse ssscssisese 
LDA #$20 . ‘Restauration modif DOS JSR RATS 
STA $AEFF LDA #$00 ;Remise à zéro location $48 
JSR ITOSO Message piste 0 secteur 0 STA S48 ;servant au moniteur 
LDA FLAGERR LDY 4#$00 
CMP #SFF * 
BNE LP1 ” 
RTS RÉRRRRRRRRR RAR RÉ RRRRRRRRRRR RAR RÉ 
LP1 JSR P1P2 ;Libération pistes 1 et 2 * CONTROLE DES ERREURS * 
RTS RRRRR RAR RRRRRRRRRRRRRhhhhhh 
* * 
* * 
RARARARARAR RAR ÉARRAAARÉ RÉ LDA ERREUR ;Gestion des erreurs 
* INITIALISATION 36 PISTES # CMP 4#$508 Erreur format ? 
hatthttttététéétététéééététététst BNE PROTECT 
* LDA #FORM ;Chargement adresse message 
* STA REGI 
IN36D1 LDA 4#$01 LDA #>FORM 
STA LECTEUR STA REG2 
BNE IN36 BNE MESSAGE 
IN36D2 LDA 4#$02 PROTECT CMP #$10 :Erreur protection ? 
STA LECTEUR BNE VOLU 
IN36 JSR PROTEC LDA #PROT 
LDA #136 STA REGI1 
STA REGI1 LDA #>PROT 
LDA #>136 STA REG2 
STA REG2 BNE MESSAGE 
JSR MESSAGE vOLU CMP 4#$20 sErreur volume ? 
LDA 4#$24 BNE DRIVE 
STA SBEFE ;Autorise le DOS pour 36 pistes LDA #VOL 
USR IN35 ;Iinitialisation STA REGI 
LDA #$23 LDA 4#>VOL 
STA SBEFE /Remet DOS à valeur initiale STA REG2 
LDA FLAGERR BNE MESSAGE 
CMP #$FF DRIVE CMP #$40 Erreur 1/0 ? 
BNE PIS23 BNE LECTU 
RTS LDA #DRIV 
PIS23 LDA #P36 STA REGI1 
STA REGI LDA #>DRIV 
LDA #>P36 STA REG2 
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BNE MESSAGE È 


LECTU CMP #$80 sErreur lecture ? * 
BNE OKMESS ;Pas d'erreur RRARRRRÉRRÉRÉRRÉRRÉRARRÉRRRRRRÉRRRRRÉ 
LDA #LECT * TOUT CE QUI EST ENTRE "TOSO" * 
STA REGI1 * ET '"FIN' SERA ECRIT SUR LA # 
LDA #>LECT * PISTE 0 SECTEUR 0 E 
STA REG2 RÉRRRARÉRRRARARÉRÉÉAEEÉAÉAAE ERA 
BNE MESSAGE Lu 
OKMESS LDA #$00 Remise à zéro drapeau erreur * 
STA FLAGERR TOSO HEX 01 :Pour accepter ce qui suit 
RTS STA MOTOROFF,X ;Arret moteur lecteur 
MESSAGE LDY #$00 LDA S$2B ;Chargement numéro slot boot 
MESSA LDA (REG1),Y Affichage du message LSR 
BEQ. RETO LSR 
INY LSR 
JSR COUT LSR 
JMP  MESSA ORA #SC0 
RETO RTS STA S3F 
jé LDA #$00 
sl Messages STA $3E 
d CLD 
FORM INV "ERREUR D'INITIALISATION"878D00 JSR SFE84 ; Vidéo NORMAL 
PROT INV "DISQUETTE PROTEGEE"878D00 JSR SFB2F Mode TEXT 
VOL INV "ERREUR NUMERO DE VOLUME"878D00 JSR SFE89 ;Clavier en entrée 
© DRIV INV "ERREUR LECTEUR (1/0 ERROR) "878D00 JSR SFE93 ;Vidéo en sortie 
LECT INV "ERREUR DE LECTURE"878D00 JSR HOME 
* LDY #$00 
* * 
RhRhthhhthhhhhthhhhtthhtththñtk * Calcul d'aâadresse pour tenir 
* ROUTINE DE TEST DISQUETTE # * compte de l'adresse $800 au 
* PROTEGEE OU NON ET DEMANDE * * BOOT de la disquette. 
* POUR ENLEVER PROTECTION Lé LAB1 LDA TEXTE-TOS0+S800, Y 
RRRRRRR RÉ RR ht h ht thhhhtthh * 
» CMP #$00 
LL BEQ LAB2 
PROTEC JSR HOME UJSR COUT 
LDX 4#$60 Slot 6 INY 
LDA LECTEUR BNE LAB1 
CMP #$02 LAB2 USR $FDOC sAttente touche clavier 
BEQ DRIVEZ2 JMP  ($003E) 
LDA DISKO1,X * 
JUMP PRB * 
DRIVE2 LDA DISKO2,X RRRRRRR ARR RAR RRRRR**Rt tt À 
PRB LDA MOTORON,X ;Mise en route moteur * Message à afficher au BOOT # 
LDY #SFF /Délai ARRARARÉARRRRRRRRARRRRRRRRRARÉARÉR RÉ 
PRBO LDX 4#$FF * 
PRB1 DEX * 
BNE PRB1 TEXTE D GS Eee os re ne me RS +”8D 
DEY ASC "! DISQUETTE DE DONNEES SANS DOS !"8D 
BNE PRBO ASC "! METTRE LA DISQUETTE PROGRAMME !"8D 
LDX 4#$60 ;Slot 6 ASC "1! APPUYER SUR <RETURN> 1"8D 
LDA Q6H,X sRecherche protection AC M +"8787878D 
LDA Q7L,X * 
BMI PROTIN HEX 00 ;Fin de message , 
LDA MOTOROFF,X ;Arret moteur * 
RTS FIN HEX FF :Fin de chargement total 
PROTIN LDA MOTOROFF,X ;Arret moteur * 
LDY #$00 * 
BCLPR LDA PROT, Y RARRRRRRRRRÉRRÉRRRÉRRRR RÉ RRRRRRRR * 
CMP. #$00 # PARAMETRES POUR RWTS (IOB) * 
BEQ RETPROT * Input Output control Block # 
JSR COUT RRRRRARRRRRRRARRRRRRRRRRRRRRRRRR 
INY Æ 
BNE BCLPR # 
RETPROT LDY #5$00 10B HEX 0160 ;Table IOB 
BCLPRI1 LDA ENLEVER, Y LECTEUR HEX 00 Numéro lecteur 
CMP  #$00 VOLUME HEX 00 ;Numéro volume 
BEQ RETENL PISTE HEX 00 ;Numéro piste 
JSR COUT SECTEUR HEX 00 ;Numéro secteur 
INY DA  CARUNIT Adresse caract. unité disque 
BNE BCLPRI DA TAMPON ‘Adresse mémoire tampon secteur 
RETENL JSR S$FDOC HEX 0000 
UMP  PROTEC COMMANDE HEX 00 ;Code de commande 
: à ;$00 positionnement 
ENLEVER ASC "ENLEVER PROTECTION PUIS <RETURN>"878D00 * ;$01 lecture 
LÀ LS ;$02 écriture 
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* ;$04 formatage * Device Characteristics Table * 





ERREUR HEX 00 ;Code erreur en retour RÉRÉRÉÉÉRÉÉÉÉÉÉÉÉRÉÉÉÉRÉÉÉÉRÉ SR R 
* :$08 erreur format Ld 
* ;$10 protégé écriture * 
Lo :$20 erreur volume CARUNIT HEX O001EFD8 ;Caractéristiques unité disque 
# :$40 erreur lecteur * 
LS ;:$80 erreur lecture * 
HEX 00 ;Volume précédent RÉRAARARÉ ARR AAÉÉÉR RÉ ÉRARÉÉRÉÉÉÉ 
HEX 60 ‘Interface précédente # DEBUT DU TAMPON DE 256 OCTETS* 
HEX 01 Lecteur précédent * correspondant au contenu d'un* 
# * secteur lu ou à ce qui sera * 
ul * écrit sur un secteur * 
RAÉARARÉRRRRRRRRRRARRRÉRRÉRÉRRRÉRÉRÉÉÉ ÉRRRÉRRRRR RAR RAR MR hRRRRRRRÉ * 
* CARACTERISTIQUES UNITE DE * * 
* DISQUETTE (DCT) id TAMPON DS 256 ;Début du tampon (256 octets) 
END 
Récapitulation 
n , 3158- B8 BO A0 AA A0 CC E5 E3 32E8- 26 32 A5 1C C9 FF DO 01 
BOOTDA TA 3160- F4 E5 F5 F2 AO B2 BA B7 32F0- 60 20 69 32 60 A9 01 8D 
3168- B8 B3 8D 8D C9 EE E9 F4 32F8- AF 35 DO 05 A9 02 8D AF 
Après avoir saisi ce code sous 3170- E9 El EC E9 F3 El F4 E9 3300- 35 20 4D 34 A9 6C 85 19 
moniteur, vous le sauvegarderez par 3178- EF EE A0 B3 B6 AO FO E9 3308- A9 31 85 1A 20 C5 33 A9 
BSAVE BOOTDATA,A$3000,L$6C2 3180- F3 F4 E5 F3 8D 00 CC E5 3310- 24 8D FE BE 20 BC 32 A9 
é 3188- E3 F4 E5 F5 F2 AO B1l BA 3318- 23 8D FE BE A5 1C C9 FF 
3000- A9 4C 8D 00 03 8D 03 03 3190- B7 B8 B6 AO AA A0 CC E5 3320- DO 01 60 A9 F0 85 19 A9 
3008- 8D 06 03 8D 09 03 8D OC 3198- E3 F4 E5 F5 F2 AO B2 BA 3328- 31 85 1A 20 C5 33 A9 05 
3010- 03 8D OF 03 8D 12 03 8D 31A0- B7 B8 B9 8D 8D AB AD AD 3330- 85 19 A9 32 85 1A 20 CS 
3018- 15 03 A9 17 8D 01 03 A9 31A8- AD AD AD AD AD AD AD AD 3338- 33 A9 11 8D B1 35 A9 00 
3020- 32 8D 02 03 A9 1E 8D 04 31B0- AD AO 14 01 10 05 12 20 3340- 8D B2 35 A9 01 8D B9 35 
3028- 03 A9 32 8D 05 03 A9 5A 31B8- 03 01 OC 0C 20 18 18 18 3348- 20 61 33 A9 FF 8D 86 36 
3030- 8D 07 03 A9 32 8D 08 03 31C0- A0 AD AD AD AD AD AD AD 3350- 8D 87 36 A9 24 8D F6 35 
3038- A9 61 8D OA 03 A9 32 8D 31C8- AD AD AD AD AB 8D 8D 8D 3358- A9 02 8D B9 35 20 61 33 
3040- 0B 03 A9 A2 8D OD 03 A9 31D0- 8D FF C3 EF EE F3 F4 F2 3360- 60 A9 00 8D BA 35 A9 FF 
3048- 32 8D 0E 03 A9 A9 8D 10 31D8- F5 E3 F4 E9 EF EE AO C3 3368- 85 1C A9 35 AO AD 20 D3 
3050- 03 A9 32 8D 11 03 A9 F5 31E0- C1 D4 C1 CC CF-C7 AO E5 3370- 03 A9 00 85 48 AO 00 AD 
3058- 8D 13 03 A9 32 8D 14 03 31E8- F4 A0 D6 D4 CF C3 8D 00 3378- BA 35 C9 08 DO OA A9 D3 
3060- A9 FC 8D 16 03 A9 32 8D 31F0- CC E9 E2 FB F2 El F4 E9 3380- 85 19 A9 33 85 1A DO 3D 
3068- 17 03 20 84 FE 20 2F FB 31F8- EF EE AO FO E9 F3 F4 E5 3388- C9 10 DO OA A9 ED 85 19 
3070- 20 89 FE 20 93 FE 20 58 3200- AO B3 B6 8D 00 CD E9 F3 3390- A9 33 85 1A DO 2F C9 20 
3078- FC A9 9B 85 19 A9 30 85 3208- E5 A0 CO A0 EA EF F5 F2 3398- DO OA A9 02 85 19 A9 34 
3080- 1A AO 00 B1 19 FO 07 C9 3210- AO D6 D4 CF C3 8D 00 A9 33A0- 85 1A DO 21 C9 40 DO OA 
3088- FF FO 0B 20 ED FD E6 19 3218- 01 8D AF 35 DO 05 A9 02 33A8- A9 1C 85 19 A9 34 85 1A 
3090- DO 02 E6 1A DO ED A9 10 3220- 8D AF 35 20 4D 34 A9 00 33B0- DO 13 C9 80 DO OA A9 39 
3098- 85 22 60 A0 A0 AO AO A0 3228- 85 1C A9 B8 85 19 A9 30 33B8- 85 19 A9 34 85 1A DO 05 
30A0- AO AO AO AO AO AO AO A0 3230- 85 1A 20 C5 33 AO 00 B9 33C0- A9 00 85 1C 60 A0 00 B1 
30A8- 0C 09 13 14 05 20 04 05 3238- C7 34 99 C2 35 C8 C9 FF 33C8- 19 FO 07 C8 20 ED FD 4C 
30B0- 13 20 03 01 OC OC 8D 8D 3240- DO F5 A9 00 8D BO 35 A9 33D0- C7 33 60 05 12 12 05 15 : 
30B8- C5 E3 F2 E9 F4 F5 F2 ES 3248- 00 8D B1 35 A9 00 8D B2 33D8- 12 20 04 27 09 OE 09 14 
30C0- AO ED E5 F3 F3 El E7 ES 3250- 35 A9 02 8D B9 35 20 61 33E0- 09 01 OC 09 13 01 14 09 
30C8- AO FO E9 F3 F4 E5 AO BO 3258- 33 60 A9 01 8D AF 35 DO 33E8- OF 0E 87 8D 00 04 09 13 
30D0- AO F3 E5 E3 F4 E5 F5 F2 3260- 05 A9 02 8D AF 35 20 4D 33F0- 11 15 05 14 14 05 20 10 
30D8- A0 BO 8D 00 CC E5 E3 F4 3268- 34 A9 00 8D BO 35 A9 11 33F8- 12 OF 14 05 07 05 05 87 
30E0- E5 F5 F2 A0 B1l BA B7 B6 3270- 8D B1 35 A9 00 8D B2 35 3400- 8D 00 05 12 12 05 15 12 
30E8- B8 AO AA A0 CC ES E3 F4 3278- A9 01 8D B9 35 A9 FB 85 3408- 20 0E 15 OD 05 12 OF 20 
30F0- E5 F5 F2 A0 B2 BA B7 B7 3280- 19 A9 30 85 1A 20 C5 33 3410- 04 05 20 16 OF OC 15 OD 
30F8- B1 8D 8D CC E9 E2 FB F2 3288- 20 61 33 A9 FF 8D FE 35 3418- 05 87 8D 00 05 12 12 05 
3100- E1 F4 E9 EF EE A0 FO E9 3290- 8D FF 35 8D 02 36 8D 03 3420- 15 12 20 OC 05 03 14 05 
3108- F3 F4 E5 AO B1 AO E5 F4 3298- 36 A9 02 8D B9 35 20 61 3428- 15 12 20 28 09 2F OF 20 
3110- A0 B2 8D 00 CC ES E3 F4 32A0- 33 60 A9 01 8D AF 35 DO 3430- 05 12 12 OF 12 29 87 8D 
3118- E5 F5 F2 A0 B1 BA B7 B7 32A8- 05 A9 02 8D AF 35 20 4D 3438- 00 05 12 12 05 15 12 20 
3120- B4 AO AA A0 CC ES E3 F4 32B0- 34 A9 33 85 19 A9 31 85 3440- 04 05 20 0C 05 03 14 15 
3128- E5 F5 F2 A0 B2 BA B7 B7 32B8- 1A 20 C5 33 A9 04 8D B9 3448- 12 05 87 8D 00 20 58 FC 
3130- B7 8D 8D C9 EE E9 F4 E9 32C0- 35 A9 00 8D BO 35 20 61 3450- A2 60 AD AF 35 C9 O2 FO 
3138- El EC E9 F3 El F4 E9 EF 32C8- 33 A9 60 8D FF AE AD AF 3458- 06 BD 8A CO 4C 62 34 BD 
3140- EE A0 B3 B5 A0 FO E9 F3 32D0- 35 8D F8 B5 A9 D2 85 19 3460- 8B CO BD 89 CO AO FF A2 
3148- F4 E5 F3 8D 00 CC E5 E3 32D8- A9 31 85 1A 20 C5 33 20 3468- FF CA DO FD 88 DO F8 A2 
3150- F4 E5 F5 F2 AO Bl BA B7 32E0- 9E AE A9 20 8D FF AE 20 3470- 60 BD 8D CO BD 8E CO 30 
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3478- 04 BD 88 CO 60 BD 88 CO 3540- A1 8D A1 A0 CD C5 D4 D4 3608- 00 00 00 00 00 00 00 00 
































3480- A0 00 B9 ED 33 C9 00 FO 3548- D2 C5 AO CC C1 AO C4 C9 3610- 00 00 00 00 00 00 00 00 
3488- 06 20 ED FD C8 DO F3 A0 3550- D3 D1 D5 C5 D4 D4 C5 A0 3618- 00 00 00 00 00 00 00 00 
3490- 00 B9 A4 34 C9 00 FO 06 3558- DO D2 CF C7 D2 C1 CD CD 3620- 00 00 00 00 00 00 00 00 
3498- 20 ED FD C8 DO F3 20 OC 3560- C5 AO A1 8D A1 AO A0 A0 3628- 00 00 00 00 00 00 00 00 
34A0- FD 4C 4D 34 C5 CE CC C5 3568- A0 AO C1 DO DO D5 D9 C5 3630- 00 00 00 00 00 00 00 00 
34A8- D6 C5 D2 AO DO D2 CF D4 3570- D2 AO D3 D5 D2 A0 BC D2 3638- 00 00 00 00 00 00 00 00 
34B0- C5 C3 D4 C9 CF CE A0 DO 3578- C5 D4 D5 D2 CE BE A0 A0 3640- 00 00 00 00 00 00 00 00 
34B8- D5 C9 D3 AO BC D2 C5 D4 3580- A0 AO AO A0 Al 8D AB AD 3648- 00 00 00 00 00 00 00 00 
34C0- D5 D2 CE BE 87 8D 00 01 3588- AD AD AD AD AD AD AD AD 3650- 00 00 00 00 00 00 00 00 
34C8- 9D 88 CO A5 2B 4A 4A 4A 3590- AD AD AD AD AD AD AD AD 3658- 00 00 00 00 00 00 00 00 
34D0- 4A 09 CO 85 3F A9 00 85 3598- AD AD AD AD AD AD AD AD 3660- 00 00 00 00 00 00 00 00 
34D8- 3E D8 20 84 FE 20 2F FB 35A0- AD AD AD AD AD AD AB 87 3668- 00 00 00 00 00 00 00 00 
34E0- 20 89 FE 20 93 FE 20 58 35A8- 87 87 8D 00 FF 01 60 00 3670- 00 00 00 00 00 00 00 00 
34E8- FC A0 00 B9 37 08 C9 00 35B0- 00 00 00 BE 35 C2 35 00 3678- 00 00 00 00 00 00 00 00 
34F0- F0 06 20 ED FD C8 DO F3 35B8- 00 00 00 00 60 01 00 01 3680- 00 00 00 00 00 00 00 00 
34F8- 20 OC FD 6C 3E 00 AB AD 35C0- EF D8 00 00 00 00 00 00 - 3688- 00 00 00 00 00 00 00 00 


3500- AD AD AD AD AD AD AD AD 35C8- 00 00 00 00 00 00 00 00 3690- 00 00 00 00 00 00 00 00 
3508- AD AD AD AD AD AD AD AD 35D0- 00 00 00 00 00 00 00 00 3698- 00 00 00 00 00 00 00 00 
3510- AD AD AD AD AD AD AD AD 35D8- 00 00 00 00 00 00 00 00 36A0- 00 00 00 00 00 00 00 00 
3518- AD AD AD AD AD AD AB 8D 35E0- 00 00 00 00 00 00 00 00  36A8- 00 00 00 00 00 00 00 00 
3520- A1 AO C4 C9 D3 D1 D5 C5 35E8- 00 00 00 00 00 00 00 00 36B0- 00 00 00 00 00 00 00 00 
3528- D4 D4 C5 A0 C4 C5 AO C4 35F0- 00 00 00 00 00 00 00 00 36B8- 00 00 00 00 00 00 00 00 
3530- CF CE CE C5 C5 D3 A0 D3 35F8- 00 00 00 00 00 00 00 00 36C0- 00 00 

3538- C1 CE D3 A0 C4 CF D3 A0 3600- 00 00 00 00 00 00 00 00 


























Une nouvelle disquette de jeux : 
Ludologic 






Au sommaire de la disquette LUDOLOGIC, 
trois jeux de réflexion de difficulté croissante. 
Ces jeux qui nécessitent des neurones aussi 
calmes qu'entraînés, ne devraient pas décevoir 
les amateurs de puzzles et autres casse-têtes. 


Il n'est pas nécessaire de présenter TAQUIN, 
ce pousse-pousse informatique ici fort bien 
présenté. 2 Ë 
Nouvelle difficulté, NOIR & BLANC : 37 ATEN NNNNNEE 
hexagones peuvent être noirs ou blancs mais 
au départ vous n'en connaissez pas la couleur. 
Chacun comporte un numéro qui représente le 
nombre de cellules voisines blanches... A 
vous de reconstituer le décor original ! 
HEXAGONE MAGIQUE est encore plus 
délicat, même principe que le carré magique, 
mais ici vous devrez installer les chiffres de 1 
à 19 dans un hexagone de telle façon que les 5 
horizontales et 10 obliques totalisent chacune 
38 : bonne chance. 





Fidèle à son habitude, Pom's vous propose sur cette disquette les 
sources des routines écrites par Sylvie Gallet en assembleur Lisa 
2.5. Bien entendu, le Basic est également listable. TAQUIN et 
NOIR & BLANC utilisent leur propre routine graphique qui 
permet de dessiner plus rapidement qu'avec des shapes. 









80,00 F Franco, 
Bon de commande page 74 
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ui n'a jamais eu de 

problèmes en tapant 

LAOD au lieu de 

LOAD, ou CQTQLOG 
au lieu de CATALOG. N'avez 
vous jamais eu envie de 
raccourcir les commandes de 
ProDOS ou de les traduire, 
comme cela a déjà été proposé 
pour le DOS 3.3. Et si, pour le 
même prix, vous vous offriez 
deux commandes supplémen- 
taires qui ne tarderont pas à vous 
paraître indispensables ? 


Des commandes 
personnalisées 


Les versions de BASIC. 
SYSTEM sont innombrables et il 
serait imprudent de les ‘patcher’ 
directement comme en DOS 3.3. 
C'est pourquoi, plutôt que 
remplacer les commandes nor- 
males, on ajoute des commandes 
qui auront le même rôle. Cela 
aura pour avantage d'ajouter des 
commandes... sans en sup- 
primer. 

Après avoir lancé l'exécution de 
NEWCOM, vous pourrez taper 
"CATALOG" aussi bien que 
"CG" pour obtenir le catalogue 
d'une disquette. 


Les nouvelles 





commandes 
BL = BLOAD 
BR = BRUN 
BS = BSAVE 
CG = CATALOG 
CT = CAT 
CH = CHAIN 
CE = CLOSE 
CR = CREATE 
DL = DELETE 
EX = EXEC 
I = IN£ 
LD = LOAD 
LK = LOCK 
PX = PREFIX 
P = PR£ . 
RN = RENAME 
SA = SAVE 
UN = UNLOCK 

= VERIFY 


Commandes ProDOS 
Renommez-les 


La syntaxe des commandes 
raccourcies est la même que celles 
des commandes normales. 
Comme l'intérêt de renommer les 
commandes utilisables seulement 
dans un programme est faible, 
seules les commandes accessibles 
en mode direct ont été traduites. 
Cependant, vous pouvez changer 
cela si vous le désirez, grâce au 
programme CHANGE. 


Note : NEWCOM est compatible 
avec EÉPE 5.0, mais EPE devra 
être lancé avant car il n'est pas 
relogeable. 


Choisir le nom de ses 
commandes 


Vous pouvez choisir vous-mêmes 
les nouveaux noms des 
commandes ProDOS en utilisant 
le programme CHANGE. Ces 
noms ne doivent pas être 
constitués de plus de huit 
caractères. De plus, le premier 
caractère d'une commande doit 
obligatoirement être une lettre. 
Les caractères suivants peuvent 
être n'importe quoi (les 
minuscules sont automatiquement 
converties en majuscules) sauf un 
espace ou un caractère de 
contrôle. Il faut faire attention à 
ce choix : en effet, si vous prenez 
un nom qui ressemble à une 
commande ProDOS (respec- 
tivement commande Basic), votre 
propre commande sera interceptée 
(respectivement interceptera) par 
la commande en question. Ainsi, 
si vous choisissez de renommer 
"CATALOG" par "CATA", votre 
commande sera interceptée et 





© -—«"p 


Bruno Fénart 


reconnue comme "CAT" du sous 
volume A. Réciproquement, si 


vous choisissez "L" pour 
renommer "LOAD", votre 
commande interceptera la 


commande du Basic LIST et 
traduira par exemple "LIST,999" 
par "“LOAD IST,999" (en mode 
direct uniquement et il suffirait de 
mettre ":" devant "LIST" pour 
éviter ce problème). 


Pour ceux qui n'auraient pas 
suivi, pas de panique ! En 
utilisant directement NEWCOM 
sans changer les noms prédéfinis 
vous n'aurez pas les problèmes 
cités ci-dessus. 


Deux commandes 
indispensables : 


BYE et ONLINE 


BYE permet d'enchaîner vers un 
autre interpréteur ou de relancer 
MOUSE.DESK si vous l'avez 
utilisé pour démarrer. Cette 
commande est d'ailleurs déjà 
disponible sur certaines versions 
de BASIC.SYSTEM (version 
1.1) . Mais NEWCOM vous 
permet d'en disposer quelle que 
soit la version que vous utilisez. 
Quant à la commande ONLINE, 
elle existe sur la plupart des 
logiciels tournant sous ProDOS, 
mais malheureusement pas avec 
BASIC.SYSTEM, faute de place 
sans doute. Là encore NEWCOM 
pallie ce défaut et cette commande 
devient vite indispensable, 
surtout avec l'arrivée des 
unidisks 3'5. 





Pom's n° 26 


19 





Remarque la commande 
ProDOS qui permet de quitter une 
application est un peu sommaire 
(sauf si vous utilisez 
Mouse.Desk). Pour l'utiliser sans 
problème, il est conseillé pour 
chacune de vos applications sous 
ProDOS de noter le préfixe de la 
disquette et le nom du programme 
(qui doit être de type System). 
Par exemple, pour AppleWriter, 
le préfixe est /AW et l'application 
est /AW.SYSTEM, ce qui est 
simple à retenir. Pour Épistole, le 
préfixe est LB (7?!) et 
l'application /MY.SYSTEM (?!). 


Utilisation de ProDOS 
en assembleur 


L'utilisation de ProDOS en 
assembleur est assez délicate. En 
DOS 3.3 il suffisait d'envoyer 
par COUT la commande précédé 
de CTRL-D (exactement comme 
on l'aurait fait depuis le Basic). 


Avec ProDOS il existe deux 
solutions : 


+ La première en appelant 
directement le MLI. Cette 
technique a été expliquée par 
Alexandre Avrane dans les 
colonnes du numéro 20 de 
Pom's. Elle est délicate et 
nécessite plusieurs opérations 
(GET-PREFIX ou ON-LINE, 
GET-FILE-INFO, OPEN, 
READ, CLOSE). Elle n'est 
indispensable que si vous 
souhaitez ne pas utiliser 
BASIC.SYSTEM (pour écrire 
votre propre fichier système, par 
exemple) ou pour des 
commandes non fournies par 
BASIC.SYSTEM (comme, par 
exemple, ONLINE et BYE). 


+ La seconde solution ressemble 
beaucoup à celle utilisée en DOS 
3.3 . Il faut recopier en $200 la 
commande de BASIC.SYSTEM 
que l'on veut exécuter, suivie par 
un retour chariot (mais sans 


Récapitulation 
‘NEWCOW' 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSAVE NEWCOM,A$2000,L$391 















avant de les installer, faites : 





CTRL-D), puis appeler 
DOSCMD = $BE03. Puis on doit 
tester s'il y a eu une erreur et 
l'afficher à l'aide du sous 
programme PRINTERR= $BE0OC 
(le code de l'erreur se trouve dans 
le registre À et non en ERRCODE 
= $BEOF comme l'indique le 
manuel de référence). 


Exemple simple 


LDX #00 
BCL LDA CMD,X sRecopie 
la cde 
STA $200,X 
INX 
CMP #$8D sDernier 
caractère? 
BNE BCL 
USR $BE03 sExécute 
’ la cde 
BCC NOERR ‘Erreur si 
Carry set 
JSR $BEOC ;Si oui af 
fiche err. 
dont le n° 
est dans À 
NOERR RTS 
CMD ASC "CATALOG" ; Commande 
DFB $8D 


2000- AD 08 BE 8D 40 21 AD 07 
2008- BE 8D 3F 21 A9 03 20 F5 
2010- BE C9 OC DO 03 4C 09 BE 
2018- 8D FF 20 85 43 8D 08 BE 
2020- A9 21 85 3D A9 FF 85 3E 
2028- A9 23 85 3F AO 00 84 42 


Comment faire ? 


En premier lieu, saisir et sauvegarder le programme binaire 
NEWCOM. C'est ce programme qui ajoute les nouvelles 
commandes. Saisir puis sauvegarder CHANGE. 


Vous voulez simplement utiliser les nouvelles commandes 
telles qu'elles sont notées dans l'encadré, faites : 


—NEWCOM 


Vous préférez modifier le nom des nouvelles commandes 


—CHANGE 


Vous apportez alors les modifications que vous souhaitez. 
Après validation, VOTRE nouvelle version de NEWCOM est 
sauvegardée sur la disquette. Il vous est alors proposé de 

lancer NEWCOM pour installer vos nouvelles commandes. 

















C'est cette solution que nous 
utiliserons pour simuler les 
commandes de BASIC.SYSTEM 


en traduisant le nom des 
commandes et en décalant de 8 
caractères (la commande la plus 
longue est POSITION) la liste 
des paramètres. Seuls la gestion 
et l'affichage de l'erreur sont un 
peu différents, car pris en charge 
directement quand on revient de 
la commande extérieure vers le 
Basic. Notez que la table des 
commandes est concaténée de la 
même façon que celle de 
BASIC.SYSTEM. 


Enfin, pour terminer, signalons 
que le relogeur est le même que 
celui utilisé pour DATHEUR 
(Pom's n°24) en plus performant. 
Il tient compte de la structure 
spéciale des appels au MLI et 
permet de reloger les adresses des 
paramètres ainsi que celles des 
buffers ou des noms d'accès, 
suivant la commande ProDOS. 


2030- 84 3C 8C 07 BE 20 2C FE 
2038- 20 3C 20 60 AD FF 20 85 
2040- 3B A9 00 85 3A A2 00 A1 
2048- 3A FO 7F 20 8C F8 A4 2F 
2050- CO 02 DO 5B B1 3A C9 BF 
2058- DO 12 88 B1 3A C9 00 DO 
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Programme ‘CHANGE’ 





10 D$ = CHR$S (4): PRINT D$"BLOAD NEWCOM" L = LEN (NS): + = 0 GOTO 330 

20 DIM PR$S(30),NWS(30) 320 FOR I = 1 TO L:J = J + 1: POKE J, ASC 

30 DATA "APPEND", "BLOAD", "BRUN", "BSAVE"," ( MID$ (N$,1I,1)): NEXT I 
CATALOG", "CAT", "CHAIN","CLOSE","CREA 330 J = J + 1: POKE J,0 
TE", "DELETE","EXEC","FLUSH","FRE","I 340 NEXT II 
N#", "LOAD", "LOCK" 400 M$ = "Enregistrer les nouvelles comman 

40 DATA "NOMON", "OPEN", "POSITON", "PREFIX" des": GOSUB 2000: IF K$ = "N" GOTO 5 
; “PR#", "READ", "RENAME", "RESTORE", "RU 00 
N", "SAVE", "STORE", "UNLOCK", "VERIFY", 450 PRINT CHRS$S (4) "BSAVE NEWCOM" 
"WRITE","-" 500 M$ = "Lancer l'exécution de NEWCOM": G 

50 FOR I = 0 TO 30: READ K$:PR$(I) = K$: OSUB 2000: IF K$ = "N" GOTO 600 
NEXT I 550 CALL 8192: HOME : PRINT "ONLINE": PRI 

60 PRINT CHR$S (21): HOME NT CHR$ (4)"ONLINE" 

100 REM Lecture 600 END 

110 FOR I = 8960 TO 9216: IF PEEK (I) = 1000C7=: INT II / 16):V = II + 5 = CX I 
194 AND PEEK (I + 1) = 217 AND PEE 6:H = 1 + C * 20: VTAB V: HTAB H: RE 
K (I + 2) = 197 AND PEEK (I + 3) = TURN 
141 THEN TB = I + 4:1 = 9216 2000 VTAB 23: HTAB 1: CALL - 958: PRINT 

120 NEXT I:LT = 9216 - TB - 2 M$;" ? (O/N) "; 

130 J = TB: FOR I = O0 TO 30:K$ = "" 2010 GET K$:K$ = CHR$ ( ASC (K$) - 32 * 

140 J=J+1:K = PEEK (J): IF K< >O0T (K$ > "Z'")): IF K$ < > "O" AND K$ < 
HEN K$ = K$ + CHR$S (K): GOTO 140 > "N" GOTO 2010 

150 NW$S(I) = KS$S:LT = LT - LEN (K$) - 1: N 2020 RETURN 
EXT I 3000 REM Introduction d'un nom 

200 REM Affichage 3010 L = LEN (N$): IF L > LM THEN L = 

210 VTAB 2: PRINT " Renommez les comma N$ = LEFT$ (N$,LM) 
ndes de ProDOS": PRINT " 3020 HTAB H + 11:I = L: PRINT NS; 

"+: PRIN 3030 HTAB H + 11 + I: GET K$:K = ASC (K$ 
niv ":: HTAB 21: PRINT " ) 
n 3040 IF K = 27 GOTO 3150 
220 VTAB 21: PRINT " 3050 IF K = 10 OR K = 11 OR K = 13 GOTO 3 
“: PRINT "Place d 140 
isponible: 000": PRINT "Escape pour 3060 IF K = 8 AND I > O0 THEN I=I-1l:G 
quitter."; OTO 3030 
230 FOR II = 0 TO 30: GOSUB 1000: INVERSE 3070 IF K = 21 AND I < L THEN I = I + 1: 
: PRINT PR$(II); TAB( H + 8);: NORM GOTO 3030 
AL : PRINT " = ";NW$S(II): NEXT II 3080 IF I = LM THEN PRINE CHRS$S (7);: 

240 II = 0 TO 3030 

250 VTAB 23: HTAB 19: PRINT SPC( (LT < 1 3090 IF 96 < K AND K < 123 THEN K =K - 3 
00) + (LT < 10));LT: GOSUB 1000 2:K$ = CHR$ (K) 

260 N$ = NW$S(II):LT = LT + LEN (N$):LM = 3100 IFK= 127 ORK < = 32 OR I = O0 AND 
8 * (LT > 7) + LT * (LT < 8): GOSUB (K < 65 OR 90 < K) THEN PRINT CHR 
3000:NWS$S(II) = N$S:LT = LT - LEN (N$ $ (7);: GOTO 3030 
) 3110 PRINT K$;:I = I + 1: IF I > L THEN L 

270 IF K = 13 OR K = 10 THEN II = II + 1 =x 
= 31 * (II = 30) 3120 N$ = MIDS (N$,1,I - 1) + K$ + MIDS 

280 IF K = 11 THEN II = II - 1 + 31 * (II (N$,I.+ 1,L - I) 
= 0) 3130 GOTO 3030 

290 IF K < > 27 GOTO 250 3140 PRINT SPC( 8 - I);:N$ = MID$S (N$,1 

300 REM Quitter I) 

310 J = TB: FOR II = O0 TO 30:N$ = NWS$S(II): 3150 RETURN 

2060- 0B 88 B1l 3A C9 20 DO 04 2090- 13 C9 81 FO OF 38 E9 CO 20C0- A6 3A 20 CB 20 BO 03 4C 

2068- AO 05 84 2F A5 3A 85 FA 2098- 90 15 C9 OC BO 11 AA BC 20C8- 45 20 60 C9 03 90 06 DO 

2070- A5 3B 85 FB A4 2F 20 D9 20A0- F3 20 FO 0B 20 D9 20 CO 20D0> 06 EO 00 BO 02 18 60 38 

2078- 20 CO 05 DO 32 B1 3A 85 20A8- 04 DO 04 AO 02 DO F5 A5 20D8- 60 88 B1 FA AA C8 B1l FA 

2080- FB 88 Bl 3A 85 FA 88 B1 20B0- 2F 38 65 3A 85 3A A5 3B 20E0- 38 E9 21 90 OC 20 CB 20 

2088- 3A C9 40 FO 17 C9 80 FO 20B8- 69 00 85 3B 38 ED FF 20 20E8- BO 07 6D FF 20 91 FA 18 
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Source ‘T.NEWCOM' 
Assembleur ProCODE 


Assemblage par ProCODE 


RAR RAR HA A ee ee ee À À 


* * 
* NEWCOM  (C) Bruno Fénart 1986 + 
* * 


KRRRRRRRRRR ARE RÉRE RÉEL ELRA*ELX 24/55/86 


* Permet de renommer les commandes 
* de BASIC.SYSTEM 
* 


* Ajoute en plus deux commandes : 

* BYE - permet de quitter BASIC.SYSTEM 

* ONLINE - permet de connaître tous les volumes en lignes 
* Syntaxe : Aucun paramètre pour ces deux commandes 


START EQU $2000 
DEBUT EQU START+$100 
FIN EQU DEBUT+$300 


* Variables en page 0 


Longueur de l'instruétion 


PCL EQU $3A Adresse de la ligne désassemblée 
Al EQU $3C sAdresse de départ pour MOVE 

A2 EQU $3E Adresse de fin - = 

A4 EQU $42 Adresse d'arrivée " . 

ADR EQU SFA Vecteur d'indirection temporaire 


* variables diverses 


X  _——___——__…_— 


BUFFIN EQU $200 sBuffer utilisé temporairement 


* Sous programmes du moniteur 
INSDSP2 EQU $F88c 


COUT EQU $FDED 
MOVE EQU $FE2C 


sDécode la ligne (PCL) avec X=0 
Sortie d'un caractère 
: (Al)-(A2) vers (A4) avec Y=0 


* Page globale BASIC.SYSTEM (BI) 


DOSCMD EQU $BEO3 Exécution d'une commande du BI 
EXTRNCMD EQU $BE06 :JMP vers interpréteur extérieur 
ERROUT EQU $BEO9 sAffiche l'erreur et fin 

BADCALL EQU S$BE8B Conversion code erreur MLI en BI 
XRETURN EQU $BE9E :RTS connu en page globale du BI 
IGETBUFR EQU $BEFS sRéserve (A) page(s) sous le BI 
XTRNADDR EQU $BES50 sAdresse d'une commande externe 


XCNUM EQU $BE53 5N° de la commande (0 si externe) 


PBITS EQU $BES54 sParamètres optionnels autorisés 
*FBITS EQU $BES56 ;Paramètres trouvés 
VPATH1 EQU $BE6C Vecteur vers la commande entrée 


* Page globale ProDOS & codes de fonction 


DEVCNT EQU $BF31 
ONLINE = $cs 


zNombre de lecteurs 
;Code de ONLINE 


QUIT = $65s Code de QUIT 
ALLOC = $40 Code de ALLOC INTERRUPT 
READBLOC = $80 Code de READ BLOC 


WRITEBLOC = $81 Code de WRITE BLOC 


ORG START 


ÉRRRRÉRRÉRRÉRRÉRRRÉRÉRRÉRREÉ 


* * 
= INITIALISATION * 
* * 


Re ee A À 


* Installe la commande personnalisée 
* entre BASIC.SYSTEM (BI) et ses buffers 


LDA EXTRNCMD+2 ;Préserve la commande précédente 
STA PRECMD+2 

LDA EXTRNCMD+1 

STA PRECMD+1 


LDA #>FIN-DEBUT+$SFF ;Réserve autant de pages qu'en 
JSR GETBUFR ; occupe le programme à reloger 


CMP #$0C Si pas d'erreur (A)= adr. buffer 

BNE Jgothem .zsinon (A) = code d'erreur BI 

JMP  ERROUT ;Affiche NO BUFFERS AVAILABLE et fi 
Jgothem STA ADRESSE sPréserve l'adresse du relogement 

STA A4+1 Adresse destination pour MOVE 


STA EXTRNCMD+2 ;installée en commande extérieure 


LDA #>DEBUT 
STA Al+1l 
LDA #<FIN-1 
STA A2 

LDA #>FIN-1 
STA A2+1 


Adresses du programme déplacé 


LDY #0 Poids faibles nuls 
STY A4 
STY Al 


STY EXTRNCMD+1 


JSR MOVE ;:Transfert du programme (Y = 0) 
JSR RELOGE sReloge le programme sous le BI 
RTS 

* RELOGEur 


# =====2=== 
* Réassemble le programme situé à l'adresse = (ADRESSE) 

* en fonction de son adresse d'assemblage = DEBUT 

* Les deux adresses doivent être des multiples de 256 

* Longueur du programme (données comprises) = FIN-LONGUEUR 
* La zone des données est séparée par DFB $00 (= BRK) 

* Le programme prend en compte la structure d'appel au MLI 
* et reloge, si nécessaire, les adresses des paramètres 


RELOGE LDA ADRESSE sAdresse du relogement 
STA PCL+1 
LDA #0 Idem poids faible 
STA PCL 
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]Jdécode LDX #0 
LDA  (PCL,X) 
BEQ Jfin 
JSR INSDSP2 
LDY LENGTH 
CPY #2 
BNE Jsuivant 
LDA (PCL),Y 
CMP #>MLI 
BNE Jnonmli 
DEY 
LDA (PCL),Y 
CMP #<MLI 
BNE Jnonmli 
DEY 
LDA (PCL),Y 
CMP #$20 
BNE Jjnonmli 
LDY #5 
STY LENGTH 
Jnonmli LDA PCL 
STA ADR 
LDA PCL+1 
STA ADR+1 
LDY LENGTH 
JSR CALCUL 
CPY #5 
BNE Jsuivant 
LDA (PCL),Y 
STA ADR+1 
DEY 
LDA (PCL),Y 
STA ADR 
DEY 
LDA (PCL),Y 
CMP  #ALLOC 
BEQ Jcalcul 
CMP  #READBLOC 
BEQ Jcalcul 
CMP  #WRITEBLOC 
BEQ Jcalcul 
SEC 
SBC #$C0 
BCC Jsuivant 
CMP #$C 
BCS Jsuivant 
TAX 
LDY OFFSET,X 
BEQ Jsuivant 
Jcalcul JSR CALCUL 
CPY #4 
BNE Jsuivant 
LDY #2 
BNE Jcalcul 
]Jsuivant LDA LENGTH 
SEC 
ADC PCL 
STA PCL 
LDA PCL+1 


sindispensable pour INSDSP2 
sL'instruction est égale à BRK 
salors début des données 
:Décode une instruction et 

; détermine sa longueur 


Longueur < 3 : Opérande inchangé 


sL'instruction est-elle JSR MLI ? 


Instruction du MLI sur 6 octets 


j?assage de paramètre pour CALCUL 


sInstruction sur 3 ou 5 octets 
Calcul d'une adresse relogée 
Est-ce JSR $BFO00 ? 

;Non alors instruction suivante 
sAdresse des paramètres MLI 
smise comme paramètre de CALCUL 


;0ffset des 
ssuivant le 
s0ffset = 3 


opérandes à changer 
code de fonction MLI 
pour ALLOC INTERRUPT 
; ainsi que pour READ BLOC 


; ainsi que pour WRITE BLOC 


:0ffset des codes de $C0 à $CB 
Transformation sauf pour NEWLINE 


:Cas de OPEN & RENAME (doublée) 
;sinon une seule transformation 
:0ffset du second paramètres 

: = JMP 


Longueur de l'instruction - 1 


;Calcul de l'adresse suivante 


ADC #0 
STA PCL+1 
SEC 
SBC ADRESSE Longueur du code désassemblée 
LDX PCL ; mise en X, À 
JSR TEST :Test si < longueur du programme 
BCS Jfin 
JMP Jdécode ;Instruction suivante 
Jfin RTS 


* TEST une longueur 


* Longueur en X, À (A poids fort) comparée à FIN-DEBUT 


* Si inférieur C = 0, sinon C = 1 


TEST CMP #>FIN-DEBUT 
BCC Joui ; ou opérande > adresse de fin 
BNE Jnon 
CPX 4#<FIN-DEBUT; Test poids faible de l'opérande 
BCS Jnon 

Joui CLC : Compris entre les limites 
RTS 

}]non SEC 
RTS 


* CALCUL des opérandes à modifier 


de l'opérande à modifier en (ADR),Y 
1 si aucune transformation, 0 sinon 


* Poids fort 
* Retour C = 


CALCUL DEY 
LDA  (ADR),Y ;Poids faible de l'opérande 
TAX ; en X 
INY 
LDA  (ADR),Y Poids fort de l'opérande en À 
SEC Comparaison de l'opérande et 
SBC #>DEBUT ;Adresse d'assemblage < opérande? 
BCC Jnon 
JSR TEST :0pérande dans les limites? 
BCS Jnon Non: instruction suivante 
ADC ADRESSE ;Si oui calcule l'octet de poids 
STA  (ADR),Y ; fort de l'adresse translatée 
CLC 
RTS 

}]non SEC 
RTS 


* Variables du relogeur 


OFFSET DFB 2,2,4,2,2,3,2,2,4,0,3,3;0Offset pour les codes 
de $CO à $CB 


ADRESSE DS 1 Adresse du relogement 


DS  DEBUT-* ;:Le début doit être aligné 


RRRRRRRRRRR RÉ RAR RÉ RÉ RAR RAR RNA RE 
* * 
* Début du code relogeable  * 
* * 


RÉARRÉRÉÉ RERO HONOR UE UEOA AN DR KR ER RAR À 
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* Retour à une éventuelle autre commande 
* si aucune des commandes n'est reconnue 


CLD 

LDA VPATHI 

STA ADR 

LDA VPATHI1+1 

STA ADR+1 

LDA #0 

STA NOCMD 

LDX #$FF 
Jcherche LDY #$00 
Jcompare INX | 

INY 

LDA NEWCMD,X 

AND #$7F 

BNE Jjsuivant 

DEY 

BNE trouvé 

BEQ Jcomsui 
]suivant CMP  (ADR),Y 

BEQ Jcompare 

EOR #$20 

CMP  (ADR),Y 

BEQ Jcompare 
Jautre INX 

LDA NEWCMD,X 

BNE Jautre 
]comsui INC NOCMD 

LDA NOCMD 

CMP  NBCMD 

BNE Jcherche 

SEC 
PRECMD JMP  XRETURN 
trouvé DEY 

STY  LNCMD 

LDA Jvecteur+l 

STA XTRNADDR 

LDA Jvecteur+2 

STA  XTRNADDR+1 

LDA #0 

STA PBITS 

STA PBITS+1 

STA  XCNUM 

CLC 

RTS 


* (JMP est indispensable 


Jvecteur JMP DISPATCH 


* DISPATCH des commandes 


Non indispensable mais... 
sAdresse-1 de la commande entrée 
smise dans un pointeur temporaire 


tInitialise le compteur 

: des commandes 

zInitialise sur la lière commande 
Pointe ler caractère de l'entrée 
;Caractère suivant 


Charge une lettre de la commande 


ler caractère ? 
Non alors comparaison complète 


Comparaison avec l'entrée 
tIdentiques -> suivante 

; sinon compare 

; avec une minuscule 
tIdentiques -> suivante 
Recherche un pointeur commande 
:Début d'une commande ? 
: Commande suivante 

Encore une ? 

:Va tester la commande suivante 
Commande non reconnue 

Saut à la commande précédente 


sMémorise la longueur-1 
: Charge l'adresse de 
+: retour vers la commande 


*Aucun paramètre autorisé 


Indique commande externe 
La commande a été trouvé 


vers les commandes 


pour permettre le relogement) 


:Vecteurs des commandes 


installée 


À =============2===222=222ss222222222= 


* Essai des commandes externes l'une après l'autre 


DISPATCH CLD 


LDX NOCMD 
BEQ GONLINE 
DEX 


BEQ 


GOBYE 


Nombre de commandes 


J]nocr 


|Idécale 


Jefface 


]command 


GOBYE 


GONLINE 


Jdevice 


N° de la commande du BI 
#0 

BUFFIN,Y 

#$8D 


Jdécale 


]nocr 
BUFFIN,Y 
BUFFIN+8,Y ;Décalage de 8 octets 
LNCMD Compare avec la longueur 


Jdécale 


#8 


#$A0 
BUFFIN-1,Y 


Espace 


Jefface 
PROLNG, X 
PROVEC, X 


| ;Longueur de la commande BI 
:0ffset du dernier caractère 
. 
PROCMD-1,X 
BUFFIN-1,Y 


]command 

DOSCMD Exécution de la commande, et fin 
(retour avec un traitement d'erreur eventuel} 
MLI ;Au revoir ! 

QUIT 

QUITPARA 


MLI 
ONLINE 
ONLINEPA 
Jfinerr 
DEVCNT 
CNT 


Teste tous les lecteurs 


BUFFIN, Y 
BYTO 


#$7F isole le slot 


#"0" 
COUT 
. 54004 
COUT 
+ D” 
COUT 
0 
BYTO 
]d2 


; Conversion en code ascii 
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#"2" 
COUT 
gg 
COUT 
gun 
COUT 
| LR 
COUT 
BYTO 
#$50F 
BYTO 
]noerr 
PRINTERR 


]d2 


;1sole la longueur du nom 
sErreur ? 
Jsuite 


#"/" 
COUT 


Toujours pris 
]noerr sAffiche le nom du volume 
Jaffiche 
BUFFIN, Y 
#$80 
COUT 
BYTO 
Jaffiche 


#$8D 
COUT 
CNT 
]Jdevice 


]suite ;Saute une ligne 
slecteur suivant 


;:Pas d'erreur 
;Retour au BI 


Jfinerr BADCALL ;Convertie l'erreur MLI en BI 


Retour avec affichage de l'erreur 


* Affichage de l'erreur 
PRINTERR INY 


LDA BUFFIN,Y ; Code de l'erreur 

LDX  #<NOCONNEC-TABERR 

CMP #$28 

BEQ Jafferr 

LDX  #<NOPRODOS-TABERR 

CMP #$45 

BEQ Jafferr 

CMP #$52 

BEQ Jafferr 

LDX  #<IOERR-TABERR 
Jafferr LDA TABERR,X 

BEQ Jfin ;Fin du message 

JSR COUT 

INX 

BNE Jafferr Toujours pris 
Jfin RTS 


* Variables et constantes 


; Séparateur 


* Paramètres et variables pour QUIT & ONLINE 


CNT DS 1 
BYTO DS É 
ONLINEPA DFB 2 
DFB O Device number = O0 <=> tous 
DA BUFFIN :Buffer de $100 octets seulement 
QUITPARA DFB 4 
DFB O0 
DA 0 
DFB O 
DA 0 
TABERR  EQU * 
IOERR ASC "I/O ERROR" 
DFB 0© 
NOCONNEC ASC "NO DEVICE CONNECTED" 
DFB O 
NOPRODOS ASC "NOT A PRODOS VOLUME" 
DFB O0 
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* Constantes et variables de l'interpréteur 


PROLNG-PROVEC+2; Nombre de commandes 
;Numéro de la commande trouvée 
Longueur de la commande trouvée 


PROCMD EQU * :Table des commandes ProDOS 
bsave ASC "B" 

save ASC "SA" 

verify ASC "VE" 

bsave. = x 

save. = sé 

ASC "RIFY" 
verify. = * 
bload ASC "“B" 
load ASC "LOA" 
delete ASC "D" 
bload. - x 
load. = + 

ASC "ELETE"* 
delete. = Li 
catalog = * 
cat ASC "CAT" 
cat. = ® 

ASC "ALOG"* 
catalog. = * 
open ASC "OPEN" 
open. = * 
write ASC "WRIT" 
exec ASC "E* 
write. = * 

ASC "XE" 
create ASC "C®” 
exec. = 3 

ASC "REATE" 
create. = * 
fre ASC "Fr" 
restore ASC "RE" 
fre. _ Ld 
store ASC "STO®” 
rename ASC "RE* 
restore. = LS 
store. = * 

ASC "NAME" 
rename. = * 
brun ASC °° 
run ASC "R° 
unlock ASC "UN* 
brun. = * 
run. # * 
lock ASC "LOCK" 
unlock. = * 
lock. = * 
chain ASC "CHA" 
in ASC "IN* 
chain. = € 

ASC "#" 
in. = * 
flush ASC "“FLUSH" 
flush. = = 
read ASC "read" 
read. = * 
position ASC "POSITIO" 
nomon ASC "N" 
position. = * 

ASC  "“OMON" 
nomon. = ie 
pr ASC "PR#" 
pr. = = 
prefix ASC "PREFIX" 
prefix. = * 
close ASC "CLOSE" 
close. = - 
append ASC "APPEND" 
append. = # 
tiret ASC "-"* 
tiret. = * 


PROVEC 


PROLNG 


N\ 


D Sn 0 D D ED TD D LE EL 





EQU 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


EQU 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 





vd :0ffset des adresses des noms (der 


nier caractère) 
append.-PROCMD 
bload.-PROCMD 
brun.-PROCMD 
bsave.-PROCMD 
catalog.-PROCMD 
cat .-PROCMD 
chain.-PROCMD 
close.-PROCMD 
create.-PROCMD 
delete.-PROCMD 
exec.-PROCMD 
flush.-PROCMD 
fre.-PROCMD 
in.-PROCMD 
load.-PROCMD 
lock .-PROCMD 
nomon.-PROCMD 
open .-PROCMD 
position.-PROCMD 
prefix.-PROCMD 
pr.-PROCMD 
read.-PROCMD 
rename.-PROCMD 
restore.-PROCMD 
run.-PROCMD 
save .-PROCMD 
store.-PROCMD 
unlock.-PROCMD 
verify.-PROCMD 
write.-PROCMD 
tiret.-PROCMD 


La sLongueur des noms 
append.-append 
bload.-bload 
brun.-brun 
bsave.-bsave 
catalog.-catalog 
cat.-cat 
chain.-chain 
close.-close 
create.-create 
delete.-delete 
exec.-exec 
flush.-flush 
fre.-fre 

in.-in 
load.-load 
lock.-lock 
nomon.-nomon 
open.-open 
position.-position 
prefix.-prefix 
pr.-pr 
read.-read 
rename.-rename 
restore.-restore 
run.-run 
save.-save 
store.-store 


NEWCMD EQU 


DS 
*BF/26/5/86 


- Utili-disque : reconstruction d'une disquette détruite, Vérification, 
Plan d'occupation 

- Ultra-copie : pour un backup particulièrement rapide 

- Edicat : Edition du catalogue, classement des fichiers, Titres. 

- Multi-disque : pour le classement de tous vos programmes (tri instantané). 


unlo 
veri 
writ 
tire 


* 


ck.-unlock 
fy.-verify 
e.-write 
t.-tiret 


Table des nouvelles commandes 


"ONLINE" 

$8D,0 sonline + CR (pas de paramètre) 
"BYE" 

$8D,0 sbye + CR (idem) 
0 sappend 
"BL" 

0 zbload 
"BR" 

0 #brun 
"ps" 

0 sbsave 
"CG" 

0 scatalog 
"CT" 

0 scat 
.cH" 

0 chain 
"CL" 

0 close 
"CR" 

0 screate 
"DL" 

0 delete 
"EX" 

0° rexec 

0 #£lush 
0 fre 
ny" 

0 sinf 
“LD" 

0 load 
“LK" 

0 #lock 

0 #nomon 
0 sopen 

0 position 
"px" 

0 sprefix 
pe 

[eo] :pr# 

0 sread 
"RN" 

0 ;rename 
0 #restore 
0 srun 
"SA" 

0 ; save 

0 store 
“UN" 

0 sunlock 
NUE" 

0 sverify 
0 swrite 
0 stiret 
FIN-* 


LTTSTSETITÉE TT TT TTL VTT FT PEN NET EE TRISTE TE METNE NC RE LCELECETEIEE 


Accompagné d'une cinquantaine de pages de documentation, Disk Manager permet de recréer les commandes du Dos, 
redéfinir l'organisation d'une disquette, grâce à un jeu d'instructions qui en fait un langage simple d'accès à la disquette. 
Il offre également un programme d'édition à l'aide de commandes évoluées. 4 utilitaires figurent aussi sur la disquette : 


Oisk Manager 


le Dos en Kit 


de Dan Steerey 


0. 5. 06. UE, TE SU TE EL SE. EE, GE SE AE 


CETTE TCTC CE TENRETÉIÉES TE ITESLÉTEELELLTERLTLELTLECETEVEN CV EIEELE 
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mique : 
Pour un Boot ergono 
Startup Pascal complei 


Daniel Mueller 
Le PASCAL UCSD offre la 


possibilité de dater les fichiers, 
mais on oublie très souvent de 


Le principe 


mettre à jour la date lors du Boot, 
car il faudrait appeler le FILER 
puis choisir l'option 'Dj)ate' puis 


"Quit'. 


C'est donc le but du programme 
qui suit avec des petits plus. 


En effet, il permet : 


+ de mettre à jour la date en 
mémoire et sur disquette, la 
syntaxe étant la suivante : 


jour-mois-annee 
jour-mois 
-mois-annee 
jour--annee 
jour 
-mois 
--annee 
+ de placer automatiquement le 
nom du volume 5 (lecteur 2) en 
mémoire comme préfixe courant ; 


+ d'afficher tous les fichiers 
‘CODE’ du volume 5 et 

d'exécuter l'un d'eux en pressant 

simplement sur une touche ; 


+ d'appeler directement l'éditeur 
ou le Filer ; 


+ de quitter le programme. 


Pour cela, il a fallu rechercher les 
adresses de la date et du préfixe 
en mémoire pour le système 
Pascal 1.2., à l'aide du 
programme Prg.1. TEXT. Elles 
sont différentes pour les versions 
64Ko et 128Ko. Le programme 
Startup utilise celles du Pascal 
1.2 128K0o. 


La date occupe 2 octets et le 
préfixe 8. Sur disquette, il faut 
savoir que pour chaque fichier le 
système réserve 26 octets et le 


Pour lire et écrire le 
DIRECTORY (qui débute au 
deuxième bloc et occupe 4 blocs) 
nous utilisons respectivement les 


fonctions UNITREAD et 
RITE. 


nombre maximum de fichiers est 
78. La structure apparaît 
clairement dans le programme. 


Programme ‘PRG.1.TEXT” 


program recherche; 


type T_date = record case boolean of 


true : (adresse : integer); 
false : (datesys : “R date) 
end; 


R date = packed record 


mois # 1..129 
jour SF coif 
annee : 0..100 
end; 
var date : T_date; 
Ddate : R date; 
begin 


{ Initialise Ddate avec la date actuellement en memoire 
aller dans le FILER et mettre par ex: 1 jan 86 } 
with Ddate do 


begin 
jour := 01; 
mois := 01; 
annee := 86; 
end; 
with date do 
begin 


adresse := -32767; { $8000 } 
while adresse < -16385 ( $BFFF } do 
begin 
if datesys” = Ddate then writeln ('adresse ',adresse); 
{ Comparaison de la date en memoire avec Ddate } 
adresse := adresse + 1 { Incremente l'adresse } 
end { while } 


end ({ with } 
end. 


{ Initialiser la date en memoire et Ddate du programme avec les meme valeurs. 
Lancer le programme ci-dessus et relever toutes le adresses affichees 
puis changer seulement la date en memoire (par le FILER) et relancer 
le programme. L'adresse de la date sera celle qui n'a pas ete affichee. } 
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Adresse de base version 1.2 Si l'on désire ‘booter’ sur ce Bibliographie 
128Ko 64Ko programme il faudra le APPLE Pascal, Operating system 
Date $B85A SACFC sauvegarder sous le nom de : reference manual, Language 
Préfixe  S$B84A $ACEC SYSTEM.STARTUP reference manual, 
sur le lecteur 1, ainsi il sera Découvrez PASCAL (tome 2) sur 
exécuté automatiquement. Apple ][, //e, //c de John Colibri 
Pour l'adresse de la date des Ce programme tourne sur Apple Édité par MNEMODYME, 
versions 1.0 et 1.1, on peut se  // possédant deux lecteurs de Le système Pascal UCSD (tome 
référer à l'article de M. Pascual disquette. Pour un système avec 2) de Thierry CHAMORET édité 
paru dans le numéro 16, l'adresse un seul lecteur, il faudra modifier par EDITEST. 
du préfixe étant obtenue en la ligne indiquée dans le listing. 
ajoutant 16 à celle de la date. (procédure FIX_VOL) cs 
Programme ‘STARTUP.TEXT’ »TORY [0] 


informations po 


program STARTUP; A »ur le Volume } 
uses chainstuff { Setchain (FICHIER), (filler1 
rajoute le suffixe .CODE a FICHIER »: 0..2048; 
»puis l'execute }; { Nom de la disquette } nom disk 
»: vol; 
const boot_vol = 4; { Drive 1 ou volume #4 } { Numero du dernier bloc du volume } bloc nbre 
cour vol = 5; { Drive 2 ou volume #5 } »: integer; 
maxlong = 7; { Long max. du nom de volume } { Nombre max. de fichiers sur disquette } file nbre 
adrdate = -18342; { Adresse de la date pour Pas \: »: 0..77; 
»cal [1.2] 128K OB85A)} { Initialise - heure du dernier acces } time 
adrfix = -18358; { Adresse du prefixe pour Pas »: integer; 
»cal [1.2] 128K OB84A } { Date courante } boot_date 
dash HE À »: r date); 
month = "???JanFebMarAprMayJunJulAugSepOctNovDe 
»c!; xdsk, code, text,info, 
data,graf, foto : 
type system = record case integer of {filler 
1 : (datesys : *r date); { Poke po »: 0..1024; 
»ur la date } { Utilise par le FILER } etat 
3 : (volumesys : "vol); { Poke po »: boolean; 
pur le volume } { Nom du fichier } filename 
2 : (adresse : integer) ({ Adresse »: string{15]; 
» en memoire } { Nbre d'octets ds le der. bloc du fichier} nbreoctet 
end; { record } »: 1.,512: 
{ Date de la derniere modification } modifdate 
EMOIS ‘="/1:512; »: r_ date) 
r date = packed record end { record }; 
mois : r mois; 
Jour: 2: .1..91: 
annee : 0..100 var directory : array ([0..77] of infodir; 
end; { recorg } prefix e: vol: 
fichier : strfile; 
vol = string [maxlong]; date : r date; 
memoire ": system; 
volume = 4..12; { Numero des volumes } ch : char; 
M ok : boolean; 
ordre = (lire,ecrire); { Ordre pour la proced 
vure IO Disk } {$U-} 
strfile = string [18]; procedure IO DISK (commande : ordre; drive : volume); 


{ Procedure gerant les entrees/sorties avec les lecteu 
»rs disquettes 
et interceptant les erreurs } 


longstring = string [255]; 


filetyp = (untyped, xdsk, code, text,info,data, gra 
»f,foto,secure); 
{ Types de fichiers utilises par Pascal } 


function no ERREUR : boolean; 
var num error : integer; 


infodir = packed record procedure write ERREUR; 


prebloc : integer; { Premier blo const inverse = 15; { Mode inverse } 
»c physique de la disg. } normal = 14; { Mode normal |} 
derbloc : integer; { Dernier blo var ch2 : char; 


»c du directory } 
case filetyp of 
secure,untyped : 


begin 
page (output); 


{ Seulement DIREC gotoxY (10,08); 
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write (chr (inverse)); 
case num error of 


2 : write ('NUMERO DE VOLUME INCORREECT'" 
»); 

5 : write ("PERTE DU VOLUME'); 

7 : write ("NOM DE FICHIER ILLEGAL'); 

9 : write ("LE VOLUME SELECTIONNE N''EST 
» PAS EN LIGNE'}); 

64 : write ("ERREUR GENERALE ACCES DISQUE 
'») 

end; { case } 


write (chr (normal)); 

gotoxY (10,10); 

write (chr (7), CONTROLER VOTRE LECTEUR OÙ LA 
»DISQUETTE',chr (7)); 

gotoxY (10,12); 

write ('Pressez une touche quelconque pour con 
»tinuer "); 

repeat 

read (keyboard, ch2}) ; 
until ch2 > chr (0); 
page (output); 
? end; { Write Erreur } 


begin { No Erreur } 
no_erreur := false; 
num error := IORESULT; { Numero de l'erreur } 
if (num error = 0) or (num error = 16) { 16 -> di 
»squette protegee } 
then no erreur := true 
else write ERREUR; 


end; ({ No Erreur } 
{$I-} 
begin ({ IO disK } 
repeat 
case commande of 
ecrire : unitwrite (drive,directory,sizeof 
»(directory),2); 
lire : unitread (drive,directory,sizeof 
»(directory),2); 
end; { case } 
until no erreur; 
end; ({ IO disK } 
{$I+} 


procedure FIXE VOL; 
{ Fixe le nom du volume #5 en memoire } 
begin 
{ Lit sur le drive 2 le nom de la disquette } 
IO disk (lire,cour vol); 
{ Pour un systeme avec un seul lecteur remplacer ce 
»tte ligne par : 
IO disk (lire,boot_vol) } 
prefix := directory{0].nom disk; : 
{ Le fixe en memoire } 
with memoire do 


begin 
1 adresse := adrfix; 
volumesys” := prefix; 
end; { with } 


end { Fixe voL }; 


procedure FIXE DATE (disk : 
{ Lit la date sur volume #4 
ou la met a jour en memoire et sur disquette } 
begin 
if disk 
then begin 
directory{[0].boot date 


boolean) ; 


:= date; 


{ Si la disquette est protegee contre l'ecriture 
il n'y aura pas de message d'erreur 
la date ne sera remise à jour seulement en memoire } 
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IO disk ({ecrire,boot vol); 
end { if then } 

else begin 
IO disk (lire,boot vol}; 


date := directory{0].boot date; 
end { if else }; 
{ Fixe la date en memoire} 
ith memoire do 


begin 
adresse := adrdate; 
datesys* := date; 
end; { with } 
end; f{ Fixe datE } 


procedure CATALOG (var strn : strfile); 
{ Lit le DIRECTORY de #5 est affiche seulement les fic 
»hiers codes (max. 58) 
possibilite d'EXECUTER l'un de ces fichiers en pres 
»sant 
la lettre correspondante } 


var n,k,col : integer; 
ch1 : char; 
pile : packed array ['A'..'z'}j of integer; { M 
»AX 58 fichiers } 
begin 
repeat 
strn := '!'; 
n := 0; { Compteur fichiers codes |} 
k := 0; { Compteur general } 
fixe vol; 


page (output); 
gotoxY (27,2); 


write ("DIRECTORY ",prefix); 
repeat 
k := k + 1; { On commence par directory{1] car 


»directory{[0] etant 
reserve pour les informations gen 
»erales de la disquette } 
with directory{k] do 
if pos ('.CODE',filename) <> 0 { Position de 
» .CODE } 
then begin 
strn := filename; 
delete (strn,pos ('".CODE',strn),5); 
»{ Efface .CODE } 
{ Mise en colonnes (15 p.col.) des f 
»ichiers trouves } 
{n div 15) * 20; { Quelle col 
»onne ? } 
gotoxY (col+2,4+n mod 15); 


col := 


write ("[{',chr (ord (‘'A'}+n),'] ',st 
»En); 
pile [chr (ord{'A')+n)] := k; { Rang 


» du fich. dans DIR } 
H'mNtr 1% 
end { if then }; 
until (k = directory{0].file nbre) or (n = 58); 
if n = 0 then begin 
» gotoxY (10,15); 
write (chr (7), "AUCUN FICHIER CODE 
»ii!',chr (7); 
for n := 1 to 2000 do; 
ok := false; 
. exit (catalog); 
end; { if then } 
gotoxY (16,23); x 
write (directory{0].file nbre,' fichiers dont ',n 
»,* fichiers "CODE! !,,,0); 
gotoxY (0,00); 
write ('Taper une lettre - <ESC> pour quitter - < 
»SPACE> pour relire ? '); 
repeat 
read (keyboard, chl}); 
until ch1l in ['A'..chr (ord ('A')}tn-1},chr (27),° 


» ‘I; 
if ord (ch1l) = 27 
then begin 
ok := false; 





exit (catalog); 
end; { if then } 
until ch1 © ‘ !; 
n := pile [ch1l]; { Rang du fichier dans Directory } 
{ Le nom du fichier est retourne dans STRN } 
strn := concat ('"#5:',directory{n].filename); 


end { CataloG }; 


procedure DATESET; 
{ Saisie de la date 
— possibilite de rentrer seulement le jour 
- le jour et le mois (sur trois lettres) 
-— ou en entier 
— controle sa validite 
— Sauvegarde sur la disquette du boot si differente 
» } 


var temp 
mois _lit 


: integer; 

: string [3]; { Represente le mois sous 
» sa forme litterale } 
fini 


: boolean; 
strg date : 


longstring; { String pour la saisie d 


»e là date } 


procedure EFFACE; 
{ Efface jusqu'au premier DASH ,y compris } 
begin 
delete (strg date,1,scan (length (strg date),=da 
»sh,strg date{1])); 
if length (strg date) > 0 
then delete (strg date,1,1); 


end; { EffacE } 
{ ed eee eee ee 
La function SCAN ( limite,expression, debut }) integ 
»er; 
limite integer:; est le nombre maximum d'octets 
» a explorer 
expression : boolean; caractere à rechercher 
EX : = CH {le caractere a rechercher egal a CH) 
DCE L°”" g - eu different de 
» CH) 
sont les deux seules possibiltes. 
debut : n'importe quel type sauf FILE; est le p 


»remier octet de la 
variable a partir duquel la recherche d 
»ebute. 


La function SCAN retourne la position du premier oct 
»et verifiant EXPRESSION 

Si elle est en tete de 1a valeur a explorer, la posi 
»tion sera egale à zero. 


function TEST ENTIER (max : integer) : boolean; 
{ Transforme STRG_ DATE en entier et teste si TEMP < 
>» MAX, 
lä valeur sera dans TEMP } 
var x, stop : integer; 
begin { Test entier } 


temp := 0; 

stop := scan (length (strg date),=dash,strg date 
»{[1]); 

for x := 1 to stop do 


dif strg datefx] in ["0".:"9!] 
then temp := temp * 10 + ord ({strg date{x]) - 
»ord ('0'}); 
test _ entier := (temp > 0) and (temp <= max); 
end; { Test entier } 
function ANALYSE M : boolean; 
{ Test si les 3 premiers carac. de SRTG DATE sont d 
»es lettres) 


var x : boolean; 
w : integer; { Compteur } 
begin 
wW := l; 


x := true; 
mois lit := '???!; 
if length (strg date) > 0 
then while (w < 4) and x do 
if strg date{w]j in ['A'..'V'] 


then begin 
if w=1 
then mois lit{w] := strg da 
»te{w] 
{ La premiere lettre en MAJUS. et les 2 suivantes en m 
»inus. } 


else mois lit{w] := chr (o 
»rd (strg date[w]) + 32); 


W := w + l; 
end { if then } 
else x := false 
else x := false; 
analyse M := x; 
end; { Analyse M }) 
function ESPACE : boolean ; 


{ Supprime les espaces ainsi que les caracteres < 32e 
»t > 123 
et converti tout en majuscules } 


var w : integer; { Compteur } 
begin 

W:= 1; 

espace := true; 


while w <= length (strg date) do 
if (ord (strg date[w]) >= 33 ) and (ord (strg da 
»te[w]) <= 122) 
then begin 
if (strg date[w] >= 'a') and (strg date 
»w] <= !z!') 
then strg date{w] 
:= chr (ord (strg date[w]) - ord (" 
»a') + ord ('A')); 
W := W + l; 
end { if then } 
else 
delete (strg date,w,1); 
if length (strg date) = 0 then espace 
end; { EspacE }) 


:= false; 


function TEST : boolean; 
{ Test la validite de la date (nbre de jours dans chaq 
pue mois 
et annees bisextiles) } 


set of r mois; { MOIS 30 := mois de 30 
»jours } 


var mois _30 : 


ok1 : boolean; 
procedure MESSAGE; 
var wait : integer; 
begin 
gotoxY (3,20); 
write (chr (7), '<< ERREUR dans la DATE >>'}); 
for wait := 1 to 2000 do; 
gotoxY (3,20); 
write (chr (29)); 
end; { MessagE } 


begin ({ TesT } 
ok1 := true; 
test := true; 
mois 30 := [4,6,9,11]; { mois de 30 jours sont plus 
» nombreux que ce deux 31 
: } 
with date do 
begin 
if (mois in mois 30) and (jour >= 31) then okl : 
»= false; 
{ Test le mois de fevrier } 
if (annee mod 4 = 0) and (mois = 2) and (jour >= 
» 30) then ok1l := false; 
if (annee mod 4 > 0) and (mois = 2) and (jour >= 
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» 29) then okl := false; 
end; { with } 
{ Si la date est fausse on restaure l'ancienne + me 
»ssage d'erreur } 
if not ok1 
then begin message; 
test := false; 
with directory{0].boot date do 
begin ü 
date.jour := jour; 
date.mois := mois; 
date.annee := annee; 
end; ({ with } 
end; { if then } 
end; { TesT } 
begin { DateseT } 
fixe date (false); 
page (output); 
gotoxY (0,2); 
writeln ('Saisie de la date : <1..31>-<Jan..Dec>-<0 
»..99>!); 
with date do 
write 
{'La date actuelle est le ',jour,dash,copy (mont 
»h,mois*3+1,3),dash,annee) 
»; 
repeat 
fini := false; 
gotoxY (00,5); 
write ("Entrer la date ? '}); 
write (chr (29)); { EOL efface jusqu'a la fin de 
»la ligne } 
readin (strg date); { Saisie de la date } 
gotoxY (0,0); { Question d'esthetique } 


if espace 
then with date do 
begin 
{ TRAITEMENT PRINCIPAL DE STRG DA 
»TE 
- jour - } 
if test entier (31) 
then jour := temp; 
efface; { Efface jusqu'au prochain '-" 
») } 
{ - mois - } 
temp := 1; { Initialise le compteur po 
»ur ‘mois! } 
if (length (strg date) > 2) and analys 
»e M 
then while (temp < 13) and not fini 
» do 
{ Verifie si "mois lit' exis 
»te dans ‘month' et 
initialise mois Ex: Jan=1 
»,Fev=2,...7} 
if copy (month,temp * 3 + 1, 
»3) = mois lit 
then begin 
mois := temp; 
fini := true; 
end { if then } 
else temp := temp + 1; 
efface; { Efface jusqu'au prochain ‘- 
D*) 0} 
{ - annee - } 
if (length (strg date) > 0) and test _e 
»ntier (99) 
then annee := temp; 
end { with }; 


until test; 
{ Si la date est differente on la met à jour sur d 
»isque et memoire } 
if not (date = directory{0].boot date) then fixe da 
»te (true) 
end; 


{ DateseT } 


La méthode 


Vous n'avez pas la disquette 
d'accompagnement : il vous faut 
saisir et compiler le listing de 
façon classique. 


Vous avez la disquette 
d'accompagnementt : 

Il faut initialiser une disquette 
Pascal à l'aide du 

‘FORMATER. Booter alors sur 
la disquette Pom's et lancer le 
programme de transfert 
‘BASIC-PASCAL". Transférer 
alors le fichier STARTUP.TEXT 
en suivant les indications 
fournies par ledit programme. Il 
convient maintenant de compiler 
et d'exécuter comme 
habituellement. 


begin { STARTUP } 
fixe date (false); 
fixe vol; 
repeat 
ok := true; 
page (output); 
write ("Startup (DM): Q)uit, Date, F)iler, E)dit 
»or, eX)ecute ? [1.2]'}); 
gotoxY (0,1); 
writeln ('Le PREFIXE courant est : 
write ("La DATE actuelle est ; 
with date do 
write (jour,dash,copy (month,mois*3+1,3),das 
»h,annee); 


",prefix); 
4 D 


gotoxY (61,0); 
repeat 
read (keyboard, ch); 
{ Tout en majuscules } 
if ord (ch) > 96 then ch := 


7 


chr (ord (ch) - 32) 


unCil..N 10 (DS, "ES "Ft; 'OTS TXT 
case ch of 
‘D' : dateset; 
"E' : fichier := "*SYSTEM.EDITOR.'; { Le pointe 
, »st obligatoire pour les } 
‘EF : fichier := "*SYSTEM.FILER.'; ({ fichiers s 
. »ans suffixe .CODE } 
*X' : catalog (fichier);{ Positionne ok si aucun 
» fichier } 
"Q' : begin 
page (output); 
exit (program); { ON QUITTE } 
end; 
end; { case } 


until (ch in ['E','F','X']) and ok; 

page (output); u 

setchain (fichier); { OK let's go } 
end. { STARTUP } 


NB. : Les caractères qui suivent le signe » sont en fait la suite de la ligne 
précédente. 
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série (norme RS232C) sont 
fréquemment utilisées sur 
micro-ordinateurs. L'application 
la plus simple est la gestion d'une 
imprimante série. La transmission 
série devient indispensable pour 
échanger des données entre deux 
calculateurs, ou bien en local par 
liaison filaire, lorsque les deux 
machines ont des systèmes 
d'exploitation et formats de 
disquettes différents, ou bien en 
distant par liaison téléphonique. 
Cet article, en deux parties 
autonomes, se propose de 
montrer la gestion d'une Carte 
Super Série, sur un Apple en 
environnement CP/M. 


Pourquoi CP/M ? 


Tout d'abord parce que c'est un 
peu le “parent pauvre” sur Apple, 
et de ce fait les réalisations de 
transmissions séries sont rares, 
alors qu'il existe une 
impressionnante bibliothèque de 
logiciels de communication sous 
DOS 3.3. D'autre part, les 
transferts de données entre un 
Apple et une autre machine se 
feront vraisemblablement sous 
CP/M qui est un SED très 
répendu. Si vous devez tranférer 
vers une machine utilisant DOS 
3.3 ou ProDOS, il y a fort à 
parier qu'un simple échange de 
disquette suffira ! 


Pourquoi la carte SSC ? 


C'est d'abord la carte série la plus 
courante sur Apple, et d'autre 
part c'est une carte très 
performante au niveau électro- 
nique alors que le logiciel de 
gestion existant sur la ROM 
interne présente quelques défauts 
qui le rendent quasi-inutilisable 
dans beaucoup d'applications. Il 
est alors indispensable de revoir 
complétement la gestion de cette 
carte. 


A+ S + 


Les transmissions de données en 








La transmission 
série 


Cette transmission nécessite une 
conversion des données, données 
existantes sous forme d'octets en 
une série de bits émis à une 
vitesse précise. Cette conversion, 
au départ comme à l'arrivée, est 
effectuée par un circuit spécialisé 
nommé UART ou ACIA. En 
émission, il suffira de charger 
avec la donnée le registre de 
transmission de l'ACIA, en 
réception de lire l'octet reçu dans 
le registre de réception. 


L'ACIA se charge d'autre part de 
transférer la donnée selon un 
format bien précis, nombre de 
bits de données, nombre de bits 
d'arrêt, parité, vitesse. 

Il suffit donc en théorie d'un seul 
fil (plus la masse électrique) entre 
les deux machines. En pratique, 
pour fonctionner correctement, 
une liaison série doit en plus 
assurer un certain nombre de 
contrôles afin d'éviter la perte de 
données au cours du transfert. 
Ces contrôles, qui constituent le 
"protocole de liaison" (Hand- 
Shake des anglo-saxons), sont 
assurés par voie électrique (Hard- 
ware Handshake) en utilisant les 
signaux de contrôle de l'interface 
série, OU par voie purement 
logicielle en utilisant un pro- 
gramme de transmission res- 
pectant un protocole particulier. 
Les protocoles existants sont très 
nombreux. Il en existe de simples 
(ENQ/ACK ou D1/D3 appelé 
aussi XON/ XOFF), de 


‘moyennement évolués comme 


XMODEM ou de très élaborés 
(KERMIT). 


Nous allons détailler dans cette 
première partie un exemple de 
protocole Hardware, interfacé 
avec le BIOS CP/M, et, dans la 
deuxième un protocole logiciel : 
XMODEM. 


/1 


Signaux RS232 


Sur le connecteur DB25 d'une 
interface série, on trouve les 
signaux suivants : 





(1) 


TXD (Broche 2) Sortie 
émission de données. 

RXD (Broche 3) Entrée 
réception de données. 

RTS (Broche 4) Sortie 
demande pour émettre. 

CTS (Broche 5) Entrée 
autorisation d'émettre. 

DSR (Broche 6) Entrée 
interlocuteur prêt. 

Masse (broche 7). 

DCD (Broche 8) Entrée 
détection de porteuse 
(avec Modem). 

DTR (Broche 20) Sortie prêt. 


Les brochages de ces signaux 
sont en principe standardisés. 
Malheureusement, un certain 
nombre de constructeurs 
appliquent les normes avec 


poésie. 


Remarque : pour les lecteurs intéressés, 
l'interface série CE130T des ordinateurs 
de poche Sharp série PC ne 
fonctionnera correctement avec le 
programme présenté ici qu'en utilisant 
la Broche 11 comme signal DTR au 
lieu de la Broche 20. Il faudra donc 
prévoir un câble de liaison spécial 
pendant la durée de la garantie de votre 
interface CE130T puis, ensuite, ouvrir 
la boîte et strapper directement sur le 
circuit imprimé, après coupure de la 
piste DTR. Cette opération est très 
simple à réaliser. 


Liaison avec un Modem 


Tout ces signaux sont utilisés lors 
d'une liaison avec un Modem, il 
suffit d'utiliser un câble “fil pour 
fil”. 
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Liaison locale avec un 
autre calculateur 


En liaison directe locale de deux 
machines, on peut simplifier et 
supprimer le Modem. Il est alors 
indispensable d'utiliser un câble 
particulier appelé “Éliminateur de 
Modem” afin de croiser deux à 
deux, signaux de données et 
signaux de contrôle. 

La carte SSC possède un 
“Jumper Block” à deux positions 
(Terminal et Modem). En théorie, 
ceci devrait permettre une liaison 
locale avec un câble Modem 
normal ; en pratique, le câblage 
adopté par Apple et le logiciel de 
la ROM SSC rendent cette option 
inutilisable, car sans contrôle de 
transmission. 

Il faudra donc laisser ce Jumper 
Block en position Modem, et 
réaliser un câble éliminateur. 


Câble éliminateur 


Il est simple à réaliser, et ne 
consiste qu'à “croiser deux 
lignes” : 

Lignes de données : TXD d'une 
machine vers RXD de l'autre (et 
inversement). 

Lignes de contrôle : DTR d'une 
machine vers CTS de l'autre (et 
inversement). 


Gestion de la SSC 


La carte SSC est gérée et 
configurée à l'aide d'un certain 
nombre de registres. Ces 
registres sont à des adresses qui 


dépendent du slot dans lequel 


cette carte est située. En principe, 
sous CP/M comme sous Pascal, 
cette carte est en Slot 2. Ces 
registres permettent de 
positionner les paramètres de la 
transmission (vitesse, nombre de 
bits, parité), de lire ou écrire les 
données et de lire ou positionner 
les signaux de contrôles. Pour 
plus de détails, se reporter au 
manuel de la carte SSC. 


La carte comporte de plus des 
“switches” qui permettent de 
mémoriser une configuration par 
défaut et que tout programme de 
transmission peut aller lire. 
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Emission 

Pour émettre, il faut s'assurer que 
le registre de transmission est 
vide (afin d'éviter d'écraser 
l'octet précédemment émis, ceci 
surtout à basse vitesse), il faut 
ensuite s'assurer que le récepteur 
est bien prêt à recevoir la donnée, 
en lisant le signal CTS, et enfin 
écrire l'octet à envoyer dans le 
registre d'émission. 


Réception 


Pour recevoir, il faut indiquer à 
l'émetteur que l'on est prêt en 
activant le signal DTR, attendre 
que le registre de réception soit 
plein, puis lire l'octet. Il est 
ensuite indispensable, avant de 
retourner au programme appelant, 
de désactiver le signal DTR, afin 
d'éviter que l'émetteur n'envoie 
un octet pendant que l'on aura le 
dos tourné. C'est cette précaution 
qu'Apple semble avoir oubliée 
dans son logiciel de gestion SSC, 
et qui seule vous permettra, par 
exemple, de renvoyer un fichier 
arrivant d'une autre machine, 
vers une imprimante ou tout 
périphérique lent, ou de stocker 
sur disque en temps réel un 
fichier. 

Pour plus de sécurité, il est même 
préférable en lecture de n'activer 
DTR qu'après avoir vérifié 


qu'aucune donnée n'était 
présente, afin de solliciter 
l'émetteur. 

Programme 


SETSSC 


Ce programme, sous la forme 
d'une commande CP/M 
(SETSSC .COM) a une double 
fonction. Il permet tout d'abord 
d'initialiser la carte SSC avec des 
paramètres en clair. En effet le 
codage de la liaison en vitesse, 
parité, etc. n'est pas toujours très 
parlant si l'on n'a pas le manuel 
de la SSC sous les yeux. Avec 
SETSSC on spécifiera 
directement les paramètres 
désirés. 

Ensuite, ce programme implante 
dans le BIOS CP/M deux petites 
routines d'émission et de 
réception d'un octet, selon le 


protocole détaillé plus haut. Ces 
deux routines sont rendues 
accessibles à CP/M à travers les 
unités logiques UR2: et UP2: 
qui correspondent en standard à 
la lecture et l'écriture d'un 
perforateur de ruban, périphé- 
rique qui commence à se raréfier, 
surtout chez l'amateur ! 


Il n'y a besoin de rien d'autre, 
maintenant vous ferez vos 
transferts en utilisant ce bon 
vieux PIP qui est en fait un 
logiciel de transfert très pratique 
grâce à ses nombreuses options 
(tabulations, formatage, numéro- 
tations etc.) 


Utilisation 


Votre carte SSC peut être 
configurée par défaut (switches) 
selon vos paramètres de 
transmission les plus fréquents. 


L'appel du programme se fait au 
niveau ‘commande’ de CP/M 
par : 

SETSSC <Par1l>,<Par2>,… 

Les paramètres sont optionnels et 
sont au nombre de quatre au 
maximum, séparés par des 
virgules (un espace entre 
SETSSC et les paramètres est 
nécessaire). Chaque paramètre est 
constitué d'une lettre suivie de 
caractères. On aura les 
commandes suivantes : 


Bxxxx réglage de la vitesse où 
xxxx indique la vitesse en clair 
(et en bauds !). xxxx aura les 
valeurs 50 à 19200. 


Dx nombre de bits de données. 
x a les valeurs 5 à 8. 


Sx nombre de bits d'arrêt. x 
vaut 1 ou 2. 


Px choix de la parité. x indique 
la parité, selon les dénomina- 
tions françaises ou anglaises au 
choix. x vaudra : 

O0 ou S parité 0 (Space) 

1 ou M parité 1 (Mark) 

P ou E parité paire (Even) 

I ou O parité impaire (Odd) 
N pas de parité 


La commande SETSSC sans 
paramètres initialise la carte avec 
les valeurs par défauts des 
switches. 


SETSSC avec des paramètres 
configure la carte selon les 
paramètres indiqués. Les 
paramètres non présents dans la 
ligne de commande sont laissés 
inchangés, ou sont lus sur les 
switches dans le cas d'un premier 
appel à SETSSC après un boot. 


Par exemple : 


SETSSC configure avec les 
switches. 

SETSSC B2400 passe la 
vitesse à 2400 bauds, le reste 
est inchangé. 

SETSSC D8,PN,S1 8 bits de 
données, 1 stop, pas de parité, 
vitesse inchangée. 

etc. 


Toute commande incorrecte 
génère un message d'erreur et ne 
modifie rien sur la carte. 

La configuration reste valide 
jusqu'au prochain démarrage à 
froid de CP/M. 


La transmission de vos données 
se fera ensuite avec PIP. Par 
exemple : 


Envoi du fichier TOTO.TXT vers 
la ligne série : 
PIP UP2:=TOTO.TXT 


Réception d'un fichier et 
impression avec tabulation et 
numérotation : 


PIP LST:=UR2:[T8N] 
etc. 


Remarque 1 


Veillez à utiliser les unités 
logiques UP2: et UR2: plutôt que 
les unités PUN: et RDR: Ces 
deux dernières unités gèrent 
également le perforateur et le 
lecteur de ruban, mais réalisent en 
plus une “mise en page” du 
fichier transféré. Par exemple, 
avant émission du premier octet 
du fichier, CP/M envoie sur 
PUN: une série de 80 codes 
“Nul”. C'est classique sur un 
ruban perforé, mais un certain 
nombre d'ordinateurs récepteurs 
risquent de ne pas apprécier la 
manœuvre. 


Remarque 2 

L'utilisation de PIP implique 
l'utilisation de fichiers de type 
texte, terminés par Ctrl-Z, que 





PIP détecte comme fin de 
transmission. Il peut arriver que 


l'ordinateur qui vous envoie un 


fichier arrête son émission sans 
envoyer de Ctrl-Z (PIP le fait 
bien, pourquoi pas les autres ?). 
En ce cas, vous pouvez frapper 
un Ctri-Z au clavier. La routine 
de lecture de la carte SSC, dans 
sa boucle d'attente, surveille 
aussi le clavier et retournera à 
CP/M tout caractère frappé 
comme provenant de la ligne 
série. 

Ceci permet de reprendre la main 
correctement et fermer le fichier 
reçu. 

(Ce problème n'existe pas avec 
les commandes de transmission 
des PC Sharp qui émettent 
effectivement le code fin de 
fichier.) 


En émission, PIP arrête le 
transfert sur détection de Ctrl-Z, 
sans envoyer celui ci. Ceci peut 
éventuellement laisser l'ordina- 
teur récepteur bloqué. Deux 
solutions : 

*_si l'ordinateur récepteur permet 
une reprise de main facile, pas de 
problème ; 

* sinon, il faut disposer d'un 
moyen d'envoyer le Ctrl-Z sur la 
ligne série. En cas de besoin 
donc, il faudra développer 
(n'ayons pas peur des mots) le 
logiciel suivant : 


Charger DDT. Assembler les 
instructions suivantes : 
A100 
LHLD F390 
MVI C,lA 
PCHL 
puis Ctri-C pour revenir à CP/M 
et SAVE 1 CONTROLZ.COM. 


La commande CONTROLZ vous, 
permettra donc de libérer 
éventuellement un ordinateur 
récepteur en envoyant le code 


Ctri-Z sur la ligne. 


Remarque 3 


La lecture/écriture de la carte série 
se fait de façon très simplifiée. Il 
n'y a en particulier pas de 
contrôle d'erreur de parité, de 
cadrage ou d'embouteillage. Ceci 
n'est pas très gênant car en 
pratique, cette utilisation est 


réservée à des transmissions 
filaires locales. 


Fonctionnement 


Le programme source de 
SETSSC est documenté et ne 
pose pas de problème particulier. 
La majeure partie du code est le 
traitement de la ligne de 
commande. Des tables ont été 
créées pour transformer les 
paramètres spécifiés en valeurs de 
configuration des registres de 
l'ACIA. A noter que pour plus de 
commodité la vitesse de 
transmission a été codée d'ASCII 
en DCB plutôt qu'en binaire. 

Le reste du code consiste à 
implanter les deux routines de 
lecture et écriture dans le BIOS 
dans la zone mémoire allouée aux 
Patches Slot 2 ( OF280H ). Il faut 
ensuite entrer les adresses de ces 
routines dans la table des 
IOvecteurs aux emplacements 
réservés aux unités logiques 
UP2: et UR2: 

Dernière précaution, lors du 
Coldstart, CP/M effectue une 
recherche des cartes présentes 
dans l'Apple et crée une table 
avec les types de ces cartes. Lors 
de chaque démarrage à chaud, 
(donc en particulier après chaque 
exécution de PIP) toutes les 
cartes sont réinitialisées. Ceci est 
très gênant car on perdrait ainsi la 
configuration définie par 
SETSSC pour revenir aux 
valeurs par défaut. Il faut donc 
“tuer” la carte SSC pour CP/M, 
en mettant un code 0 (Slot vide), 
pour que le Warmboot ne modifie 
rien. 


Dans la deuxième partie de cet 
article, nous étudierons un 
protocole simple mais déjà très 
puissant. Deux programmes, 
sous forme de commande CP/M 
seront proposés, l'un émettant, 
l'autre recevant. Ces deux 
programmes sauront s'attendre si 
nécessaire, contrôler la réception 
des informations reçues, 
réémettre des informations mal 


transmises. 
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Source ‘SETSSC.SOURCE’ 


TITLE SETSSC 
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J=mmmmnsmmmmmmmmmmmessmss “memes Vous avez la disquette Pom's È 
; Les fichiers sont en format DOS 3.3. Vo E 
; CONFIGURATION DE LA Super Serial Card ë ; s É Vous E 
: sous CP/M 2.23 les transférerez sur votre disquette CP/M à 
: CT #“ . . « # H 
: É à l'aide de “Universal File Conversion” ou  : 
; SETSSC Bxxxx,Dx, Sx, Px É APDOS. È 
; ? Vous n'avez pas la disquette É 
; Bxxxx Vitesse en Bauds ë sn css à , E 
; Dx Data bits, x=5 à 8 Saisissez le dump avec l'utilitaire DDT à 
3 :Sx Stop bits, x=1 ou 2 partir de l'adresse 0100. 
; Px Parité, x=0 ou S Space ; 
; Tour Mark ? Dans les deux cas Ë 
4 DAURE -ARNS ë Utilisez la commande suivante pour confi- 
; O ou I Impaire ë é ! 
À Fe don É gurer la carte : E 
s É SETSSC,Bxxxx ,Dx,Sx ,Px Ë 
#  SETSSC configure avec les Switches E B = vitesse en bauds 50 à 19200 H 
Ë À D = nombre de bits de données 5a8 : 
7  JF-R 1986 É S = nombre de bits de stop { ou2 
OO ; P = parité O1PINSMEO (voir texte) 
BDOS  EQU 5 ;Entrée BDOS i Exemples Î 
BUFFER EQU 80H ;Buffer d'entrée : SETSSC B9600 PM : 
: Hcénéres iÈté : SETSSC S1,B300 È 
à mn mirnre E SETSSC D8 E 
NSLOT  EQOU 0E0AOH ;Carte en slot 2 Ë SETSSC (sans paramètre = utilisation de s 
DIPSW1 EQU NSLOT+1 ; Switches 1 k la positions des switches) È 
DIPSW2 EQU NSLOT+2 ;Switches 2 Lsmmmmercressmmenhpmemsrsv REP | 
TDREG EQU NSLOT+8 ;Registre transmission 
RDREG  EQU NSLOT+8 ;Registre réception ; 
STATUS EQU NSLOT+9 ;Registre d'état MODIF1: CALL LEC_ACIA ;récup config ACIA 
COMMAND EQU NSLOT+0AH ;Registre de commande î 
CONTROL EQU NSLOT+0BH ;Registre de controle LECTURE : LD A, (IX+0) ;Ligne de commande 
ï INC IX 
; Adresses clavier OR A sligne vide ? 
oser JP Z, CONFIG 
KBD EQU 0E000H CP + 
KBDSTR  EQU 0E010H JP Z, LECTURE | 
: AND ODFH smajusc. ou minusc. 
; Adresses BIOS cP "B" 
soere JP Z,LEC BAUD 

PADR EQU 0F280H ;Patches pour slot 2 CP D 
IOVEC  EQU 0F380H ;Table vecteurs 10 JP Z,LEC_ DATA 
UR2 EQU OCH ;0ffset User-Reader 2 CP s 
UP2 EQU 10H ;Offset User-Punch 2 JP Z, LEC_STOP 
CARDS  EQU 0F3B8H ;Table cartes périphériques CP P 

.PHASE 103H , JP Z, LEC PARI 

PAGE ; 

LD IX, BUFFER ; Sortie sur erreur de commande 

LD À, (IX+0) EE 

INC IX ERR_CMD: LD DE,ERR_ MSG 

OR A ;des paramètres ? LD C, 9 

JR NZ, MODIF JP BDOS ;message et retour CCP 

CALL LEC SWI ;récup. config. sw ERR MSG EQU $ 

JP CONFIG ;config. ACIA et DB 7,13,10 , 
: retour CCP ASC ’Fichtre, la commande !' 
; DB 13,10,°$" 
; Analyse de la ligne de commande a 
PR ; Commande suivante (retour des routines LEC xxx } 
MODIF: LD HL, CARDS+2 ISSN 

LD À, (HL) SUITE: LD À, (IX+0) 

OR A ;lere fois ? INC TX 

JR Z,MODIF1 ;Non OR À 

CALL LEC SWI ;Oui, récup. des switches JP Z, CONFIG 

JR LECTURE CP ee 


NZ,ERR_CMD 
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; 





JR 
PAGE 


LECTURE 


; Routine de recherche d'une commande 


CHERCHE: 


5 


LEC_DATA 


a 


LEC_STOP 


LEC PARI 


PARI_T 


; Conversion vitesse en 


EQU 


À, (IX+0) 
IX 
HL 


HL,DATA_T 
BC, 4 
CHERCHE 
(DATA) , A 
SUITE 


5e, V6, 7e. Q'L 
$-1 
60H, 40H, 20H, 0 


$ 
HL,STOP_ T 
BC, 2 
CHERCHE 
(STOP), À 
SUITE 


‘1 "2! 
$-1 
0, 80H 


$ 
HL,PARI T 
BC, 16 
CHERCHE 
(PARI),A 
SUITE 


LATE LE 5e vo!, ‘M?, n!; °1 L 

‘E"?, at, LL "D'e ‘or, ‘o' 

Ce a *i ” N!, ‘n° 

$-1 

0EOH, 0EOH, 0EOH, OAOH, OAOH, OAOH 
60H, 60H, 60H, 60H, 20H, 20H 

20H, 20H,0,0 


HL, ACCU+1 
À 

(BL), A 

HL 

(BL) ,A 


À, (IX+0) 


‘ 


; Lecture de la 


LEC BAUD: 


LEC B1: 


PAS_BON: 


TROUVE : 


BAUD_T 


DUNZ 


EQU 
PAGE 


; Lecture des switches 


HL 

A 

Z,DIGIT 
(CHIF5),A 

1 

Z 


HL 
ERR_CMD 


CONV_BD 
IY, ACCU 
HL,BAUD T 
B,15 

HL 

À, (AL) 
{IY+1) 

HL 

NZ,PAS BON 
A, (HL) 
{IY+0) 

Z, TROUVE 
LEC _B1 


ERR CMD 


DE, BAUD_ T-32 
A 

HL,DE 

A,L 


(BAUD) , À 
OFH 

NZ, SUITE 
À, (CHIF5) 

1 

Z, SUITE 
NZ,ERR CMD 


:19200 bauds ? 


50H, 75H, 110H,135H,150H,300H 
6004, 1200H, 1800H, 2400H, 3600H 
4800H, 7200H, 9600H, 9200H 

$ 


A 
HL,DIPSW1 


(BAUD) , À 
HL 

À, (HL) 

B, A 

80H 

(STOP) , À 
À, 40H 

B 

A 

(DATA), À 
À,10H 

B 
Z,LEC_SWI1 
À, 30H 

B 
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LEC SWI1: LD 
RET 


Lecture de l'ACIA 


LEC_ACIA: LD 


(PARI),A 


HL, COMMAND 
À, (HL) 
0E0H 
(PARI),A 
HL 

B, (AL) 
A, 0FH 

B 

(BAUD) , À 
À, 60H 

B 
(DATA) , À 
À, 80H 

B 
{(STOP),A 


HL, COMMAND 
À, (PARI) 

8 sactive RTS 
(HL),A 

HL 

A, (BAUD) 
10H 

B, À 

À, (DATA) 

B 

B, À 

A, (STOP) 

B 

(AL) ,A 


BAUD : DS 
DATA : DS 
STOP : DS 
PARI: DS 
CHIF5: DS 
; Configuration de 1 
CONFIG: LD 
LD 
OR 
LD 
INC 
LD 
OR 
LD 
LD 
OR 
LD 
LD 
OR 
LD 
LD 


À, (RDREG) 


; Mise en place des Drivers dans le BIOS 


LD 


HL, PUNCH 
DE, PADR 
BC, FIN-PUNCH 


;Transport du code 
HL,PADR ;Adresse Punch 


(IOVEC+UP2) , HL 


HL, PADR+READER-PUNCH 


{IOVEC+UR2) , HL 
HL, CARDS+2 
A 


(HL),A ;On "tue" la carte 


; Message Ok et retour CCP 


OKMSG: DB 
ASC 
DB 
PAGE 

: Drivers d'entrée sortie série 
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DE, OKMSG 
c,9 

BDOS 

13,10 

*SSC Ok...’ 
13,10,"$" 


?S10t 2 





Dump hexadécimal de SETSSC.COM 





0100 00 00 00 DD 21 80 00 DD 7E 00 DD 23 B7 20 06 CD 
0110 64 02 C3 AD 02 21 BA F3 7E B7 28 05 CD 64 02 18 
0120 03 CD 8A 02 DD 7E 00 DD 23 B7 CA AD 02 FE 20 CA 
0130 24 01 E6 DF FE 42 CA OC 02 FE 44 CA 8B O1 FE 53 
0140 CA A2 01 FE 50 CA B5 01 11 50 O1 0E 09 C3 05 00 
0150 07 OD 0A 46 69 63 68 74 72 65 2C 20 6C 61 20 63 
0160 6F 6D 6D 61 6E 64 65 20 21 OD OA 24 DD 7E 00 DD 
0170 23 B7 CA AD 02 FE 2C 20 CF 18 A9 DD 7E 00 DD 23 
0180 E5 ED Bÿ El 23 09 7E C8 El 18 BD 21 9D O1 O1 04 
0190 00 CD 7B 01 32 A9 02 C3 6C 01 35 36 37 38 60 40 
01A0 20 00 21 B2 01 01 02 00 CD 7B 01 32 AA 02 C3 6C 
01B0 01 31 32 00 80 21 D3 01 01 10 00 CD 7B 01 32 AB 
01C0 02 C3 6C 01 53 73 30 4D 6D 31 45 65 50 70 4F 6F 
01D0 49 69 4E 6E EO EO EO AO AO A0 60 60 60 60 20 20 
01E0 20 20 00 00 00 00 21 ES O1 AF 77 2B 77 DD 7E 00 
01F0 B7 C8 FE 2C C8 DD 23 E6 OF ED 6F 23 ED 6F 2B B7 
0200 28 EB 32 AC 02 FE 01 C8 El C3 48 01 CC E6 01 FD 
0210 21 E4 01 21 64 02 06 OF 2B 7E FD BE 01 2B 20 06 
0220 7E FD BE 00 28 05 10 FO C3 48 O1 11 44 O2 AF ED 
0230 52 7D 1F 32 A8 02 FE OF C2 6C 01 3A AC 02 FE O1 
0240 CA 6C 01 C2 48 01 50 00 75 00 10 01 35 01 50 01 
0250 00 03 00 06 00 12 00 18 00 24 00 36 00 48 00 72 
0260 00 96 00 92 AF 21 Al EO ED 6F 32 A8 02 23 7E 47 
0270 E6 80 32 AA 02 3E 40 A0 CB 3F 32 A9 02 3E 10 A0 
0280 28 04 3E 30 AO 07 32 AB 02 C9 21 AA EO 7E E6 EQ 
0290 32 AB 02 23 46 3E OF AO 32 A8 02 3E 60 A0 32 A9 
02A0 02 3E 80 AO 32 AA 02 C9 E5 E5 ES5 ES ES 21 AA EO 
02B0 3A AB 02 F6 08 77 23 3A A8 02 F6 10 47 3A A9 02 
02C0 BO 47 3A AA 02 BO 77 3A A8 EO 21 FD 02 11 80 F2 
02D0 01 3B 00 ED BO 21 80 F2 22 90 F3 21 93 F2 22 8C 
02E0 F3 21 BA F3 AF 77 11 EE 02 0E 09 C3 05 00 OD OA 
02F0 53 53 43 20 20 4F 6B 2E 2E 2E OD OA 24 21 A9 EO 
0300 CB 66 28 FC 21 A2 EO CB 46 20 FC 21 A8 EO 71 C9 
0310 21 A9 EO CB 5E 28 03 2B 7E C9 23 CB C6 2B CB 5E 
0320 20 OF 3A 00 EO 07 30 F6 CB 3F 23 CB 86 32 10 EO 
0330 C9 2B 7E 23 23 CB 86 C9 00 00 00 00 00 00 00 00 
PUNCH LD HL, STATUS 
W_ TDR: BIT 4, (HL) ;TDR vide ? 

JR Z,W_TDR 

LD HL,DIPSW2 
W_CTS: BIT 0, (HL) ;CTS ? 

JR NZ,W_CTS 

LD HL, TDREG 

LD {HL),C ;écriture 

RET 
READER : LD HL, STATUS 

BIT 3, (HL) ;RDR plein ? 

JR Z,S_DTR 

DEC HL 

LD À, (HL) ;lecture 

RET 
S_DTR: INC BL 

SET 0, (HL) ;active DTR 

DEC BL 
W_RDR: BIT 3, (HL) ;RDR plein ? 

JR NZ, READERI1 

LD A, (KBD) 

RLCA 

JR NC, W_RDR 

SRL A 

INC HL 

RES 0, (HL) 

LD (KBDSTR) ,A 

RET 
READERI1 : DEC HL 

LD À, (HL) ;lecture 

INC HL 

INC HL 

RES 0,(HL) ;désactive DTR 

RET 
FIN EQU $ 

END 
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Overlay dynamique 

Visicalc et Applesoft 

Un programme aide-mémoire 
Graphique : de l’ITT 2020 à l’Apple 
Les adresses du graphique 

Routine de présentation graphique 
Applications de graphiques 
haute-résolution 

Création de tables de formes 

Des instructions en une lettre 

Des boucles à s’arracher les cheveux 
PLE : Program Line Editor 

CRAE : Co-Resident Applesoft Editor 
Une incursion dans les mystères du DOS 
Inverseur DOS 3.2/D0S 3.3 

Les drames de l’Append 

Réparez votre Append 

Réparez votre Renumber 

Analyse du contenu des slots 
Contrôlez le nettoyage-mémoire 
Faites le ménage dans la mémoire 
Banc d’essai des utilitaires 

de documentation 

Les limites des éditeurs de texte 
Copie d'écran texte 

Un catalogue général en Pascal 1 
Un catalogue général en Pascal 2 
Un catalogue général en Pascal 3 
Formattez vos programmes 

La leçon de calcul 

Trois secondes pour trier 

Chargez vite vos fichiers binaires 
Sprechen Sie DOS ? 

Changez votre poignée de jeu 
S.H.LAM : une routine bien pratique 
Apprentissage de l’assembleur 1 
Apprentissage de l’assembleur 2 
Déplacement des programmes en 
assembleur 

Notions de base : les fichiers 

Un Print Using d'intérêt général 
Conversion Pascal/Basic/Pascal 
Communication grâce à l’Apple 
Communiquez avec le format DIF 
Les fichiers EXEC 

Un exemple de Hello 

Personnalisez vos disquettes 

Un programme de TRACE sélective 
Un programme devinette 

Les mémoire de masse 

La carte M/DOS à l'essai 

Les codes ASCII épluchés 

Survol de l’ Apple /// 

RobotWar 
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HAIFA : un amper interpréteur complet 
Le clavier magique 

Création graphique en Pascal 
Logiciel graphique en Pascal 
Graphique, quand tu nous tiens. 
Tortue & 

Graphiques et logique 

Les Quatre Ponts 

Hard Copy Seïkosha 

Création de police de caractères 
Francisez le DOS 

La programmation facilitée 

Un analyseur de syntaxe 

Un programme de test universel 
Un programme de Hello complet 
Accélérez vos programme en Basic 
Des programmes relogeables 
Recherche de codes binaires 
Ergonomie des programmes 
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Transfert d’Applesoft vers EXEC 
Création de fichiers EXEC 
Tableaux de taille déclarée en Pascal 
Dump Pascal 

Un générateur 

Notions de base : routine 

d’input généralisé 

Notions de base : gestion de fichiers 
Gestion de masques en Basic 
Boot PLE+CRAE 

Un programme de fondu enchaîné 
Le Hbasic : un basic pascalien 
Calculs en format gestion 

Calculs à 12 chiffres en Pascal 

Le loto, c'est facile 
Cryptographie à clef publique 
Visicalc et traitement de texte 

Les arcanes du moniteur Apple /// 
Moniteur étendu 

L’Apple //e à l'essai 

Le cours de Basic Applesoft 

Base de données sur Apple 
Mini-base de données 

PILOT et SUPER-PILOT à l'essai 
Multiplan à l'essai 

Banc d’essai du BASIS 108 

Allo, Questel ? 

The Last One à l’essai 

C.O.R.P. à l'essai 

CX Multigestion à l'essai 

Banc test de la crate LEGEND 128Ko 
La souris de Lisa 

FID, MUFFIN et DEMUFFIN 


w 
DEUX D 0-00 


œ 


[ee] 


TE 
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Copie basse résolution d'écran HGR 
Un éditeur graphique HGR 

Fusion de tables de shapes 

Fondu enchaîné graphique 
Reconstituez le Puzzle 

La Magie de Magicalc 
Éditeur-Composeur de texte 

Donnez du caractère à votre imprimante 
Super-impression de chaînes 

Mise en forme de listings 

Lecture de fichiers TEXT 

Saisie Multipage en Pascal 

Gestion de fichiers avec RWTS 
Pseudo-opcodes de divers assembleurs 
La Prom PSA désassemblée 

Jonglez avec votre catalogue 
MATGRAPEH, votre routine graphique 
Compression d'images HGR 

Dessins avec une planche à clous 
Aide au graphique HGR 

Caractères géants à l'imprimante 
Décisionnel graphique à l’essai 
Créez des commandes automatiques 
Gestion de comptes bancaires 

Accès direct aux disquettes 

Édition des fichiers Basic 
Suppression de fin de programme 
Input généralisé de tableaux 
Chargement automatique de l’Integer 
Conversion de Big Mac vers Lisa 2.5 
La communication avec l’Apple 


CX Système à l’essai 

Calendrier perpétuel en Visicalc 
Music 

Initiation à l’assembleur (1) 

Le Bavard 

Effets stroboscopiques 

Une astuce pour supprimer les REMs 
Des POKESs à gogo 

Un programme de menu 

Un menu à la carte 

Comparaison de programmes en 
langage machine 

Comparaison de programmes Applesoft 
Un “Type-ahead” en Applesoft 
Tracé de courbes en conversationnel 
L'obtention de l’extremum absolu 
des fonctions à plusieurs variables 
Tri rapide en assembleur 

MacArticle 

Gutenberg à l'essai 

Les logiciels de traitement de texte 
Magic Window à l'essai 

Initiation à l’assembleur (2) 

Disque virtuel 16Ko 

Charts Unlimited à l'essai 

Le Calculateur Entier 
Exp(rgéSar(163)) est-il entier ? 

Patch du DOS 3.3 

Des tableaux de dimension variable 
& ONERR GOTO 

Programme assembleur à la fin d’un 
programme Basic 

Nombres flottants en langage machine 
PEEKs et POKESs en Pascal 
Imprimez les codes ESC de votre PLE 
Tracé rapide de cercles 

Un éditeur de shapes 

Des trucs pour AppleWriter ][+ et //e 
Adaptez AppleWniter 1.1 à l'Apple //e 
Pom’s a vu MEM/TERM 

Analyse de MagicMailer 

La famille Apple // 

L’Apple //c est né 
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Initiation à l'assembleur (3) 
Home, Sweet Home 

Un jeu d'adresse en Pascal : 
Ordralphabetix 

ProDOS à l’essai 

La compatibilité de l'Apple //c 
Analyse de la VTOC 

Bloc-Notes 

Impressions des variables 
Documentation de tables de shapes 
Réduction d'images HGR 

PEEKSs à gogo 

Le Basicium 

Le lecteur Micro-expansion 1 méga 
BugByter à l'essai 

Pom’s a vu LIGHT 1 

ThinkTank à l'essai 

Les nouvelles du Macintosh 


Pom’s n°14 
Initiation à l’assembleur (4) 
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Procédure & 

Disque virtuel 64Ko 
Lecture/écriture rapide de tableaux 
Input généralisé miniature 
Amper-interpréteur ICARE 

Les essais du Macintosh 

é De MacWrite à AppleWriter [le 
é Les tokens du Basic Microsoft 
Gestion de masques améliorée 
Lève-toi et brille ! 

217 fichiers par disquette 
Converions minuscules/MAJUSCULES 
Un catalogue général 

Koala Pad à l’essai 

Appleworks à l'essai 

Visicalc Advanced Version 

Jane, l’ Apple // sauce Macintosh 
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Initiation à l’assembleur (5) 
MobbyDisk 

Disk Check-up 

Fleuves de France 

HPGRAPH 

Écriture en page hautre résolution 
MousePaint 

Les caractères programmables 

sur imprimantes Apple 

Gestion de fichiers par Rwts et DOS 3.3 
é Les routines en ROM du Macintosh 
é Un éditeur de formes et de curseurs 
Omnis 2 à l’essai 
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Initiation à l’assembleur (6) 
Pot-pourri ProDOS 

Gérer la date en ProDOS 

Signature 

Votre Epson en mode proportionnel 
Accès direct aux disquettes 

L’Apple en multitâche 

é Personnalisez vos 

disquettes Macintosh 

é Call : un exemple d'application 

é MacPaint et le Basic 

é Appel des routines en ROM 

Entrée analogique améliorée 

Un désassembleur en Basic et WPL 
Les codes ASCII du //e 

STARTUP et saisie de date en Pascal 
PLE+CRAE+APA 

Conversion minuscules: MAJUSCULES 
CALLSs à gogo 
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Initiation à l’assembleur (7) 

Transfert rapide de tableaux 

Les pointeurs en Pascal UCSD 

Animations graphiques 

Visualisation d’une distribution normale 

Copie d'écran sur imprimante EPSON 
Catalogue sur imprimante 

& BSAVE et BLOAD en Basic 

Switch vidéo pour carte 80 colonnes 
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œ 
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= 
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œ 
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Mini-éditeur Basic 
Transformez votre //e en ][+ 
Conversion chiffres-lettres 
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Disquette mixte DOS/ProDOS 


Saisie de variable par écran 

Le porte parole 

Gestion de fenêtres 

Graphiques aléatoires 

d Récupérez les icônes du système 
é Modification des informations 
pour le Finder 

é Les curseurs du système 
Micro-journal 

Les pirates ont la parole. 
Hard-Copy de la page HGR étendue 
Les pointeurs, suite. 

Rendez le DOS transparent 
Recherche dans un tableau 
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Un analyseur de syntaxe 

Un catalogue multi-sed 

Une mémoire tampon d’écran 
Disquettes mixtes DOS/Pascal 
Mousecat 

é Lucy in the Sky with Diamonds 
é Étrange accessoire 

d Fermez les fenêtres 

é Où est la souris 

é Le système de développement 68000 
La méthode PERT 

Hard-copy HGR sur ImageWriter 
L'intelligence artificielle 
Retrouver vos programmes perdus 
Création de caractères 
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"DOS ou ProDOS à la carte 


Manipulation de catalogue 

Copie d’écran sur silentype 
uatre fonctions pour le Basic 
Des messages en boîte 

é Gestion de comptes bancaires 

Décalages… 

Utilisation de la carte langage 
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Conversion Pascal/DOS 
Édigraph 

Courrier automatisé en WPL 
RWTS désassemblée 
Décrypteur 

é Library ; un motif de satisfaction 
é Une corbeille dans la $ 

é Fenêtres de saisie 

La 36ème piste 

Un compatible incompatible ? 
Défilement graphique 

Calcul de x 
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Composition de n° de téléphone 
Adaptation à ProDOS de routines 
assembleur 

Compacteur de programmes Basic 
Copie d'écran GR 

De la formule à la courbe 

‘Startup’ Basic sous ProDOS 

Des titre en Basic 

é Jeu de mots 

é Transfert ! —> Mac 

é /lyperparallélipipèdes et fractaux 
dé MacAstuces 

Mini-éditeur Basic 


Six Lettres 

Des bugs sous ProDOS 
Print Using 
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Le Turbo Pascal 

Un composeur sur le //c 
GENUTILE 

Formateur de listings Basic 
Navette 

Un “Décruncher” 

Un Désassembleur 65C02 
é Jeu de la Vie 

é Routine de saisie en Basic 
dé MacAstuces 

d !mpôts sur Multiplan 
Impôts sur Multiplan 
SoftCopie 


Retour dans le Basic 
Halte aux Scrolls 
Patches au DOS 3.3 
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Un disque virtuel sous CP/M 

THGR sur DMP et ImageWriter 
EXEC SAVE 

Printer 

Datheur 

TOKENisation des chaînes 

é PostScript 

é Un composeur téléphonique sur Mac 
é Le Macintosh et le Presse-Papiers 
é Le Bundle et le Finder 

Analyse multicritère 

Hard-Copy sur GP500A 

Le kit 65C02 

Snake 
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Temps anglais 

Éditeur de blocs ProDOS 
Miroirs Janus 

Reset & ProDOS 
Compdisk 

Formateur ProDOS 

é Ad litteram 

d Ascenceurs en Basic 
é MacAstuces 

é LFinder 

Tri de chaînes 

Disk][ et /c 

Courbes fractales 
Hyper-espace 


A=Assembleur 

B=Basic 

P=Pascal 

(B/A)=relatif au basic ou à l’assembleur 
é =relatif au Macintosh 
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Le langage Basic, même aussi évolué 
que l'est celui de Microsoft pour le 
Macintosh, ne permet pas de fout faire 
(du moins si l'on veut conserver des 
temps d'exécution raisonnables). Le tri 
de chaînes de caractères est une de ces 
opérations souvent indispensables, mais 
qu'il vaut mieux confier à un langage 
certes primaire (mais Ô! combien 
efficace !) : l'assembleur, quitte à 
appeler la routine ainsi écrite depuis un 
programme Basic ; c'est l'objet de cet 
article. 


Mode d'emploi 


Vous pouvez fort bien avoir besoin 
d'une routine de tri pour vos 
programmes Basic, sans pour autant 
ressentir le besoin de savoir comment 
elle fonctionne ; c'est pourquoi nous 
passons directement au mode d'emploi, 
le Lecteur intéressé trouvera les détails 
techniques plus loin. 


Deux méthodes existent pour 
l'installation de routines en assembleur 
dans un programme Basic (voir le 
numéro 21 de Pom's): 


* routines sous la forme d'une 
‘Librairie’ indépendante du 
programme Basic ; 

* routines installées directement 
dans un tableau de variables 
entières et faisant partie 
intégrante du programme. 


Comme il y a quelques différences quant 
à l'utilisation des deux méthodes, nous 
vous proposons un mode d'emploi en 
deux parties, la première concernant la 


Version ‘Library?’ 


Avant toute chose, il convient de 
signaler que le tri effectué par la routine 
pourrait être qualifié de ‘tri indirect” 
puisqu'il est effectué sur un tableau de 
variables auxiliaire, à la manière de la 
routine écrite par Bernard Lambillon 
pour l'Apple //, et publiée dans le 
numéro 25 de Pom's. 


Les chaînes à trier doivent se trouver 
dans un tableau de variables 
(alphanumériques, bien entendu) à une 
dimension (Chaine$(n) par exemple). 
Parallèlement, on devra avoir un tableau 
de variables entières à une dimension 
(comme Index%(n)), contenant dans 
chacun de ses éléments le numéro de la 
chaîne de caractères contenu par 
l'élément correspondant du tableau de 
variables alphanumériques (ouf!). Ce 
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numéro sera compris entre 0 et le 
nombre de chaînes moins un. 
Rassurez-vous, ceci est beaucoup plus 
facile à faire qu'à dire : 


On suppose un tableau de variables 
alphanumériques baptisé ‘Chaine$’, et 
constitué de 20 éléments (soit O à 19 
avec, par défaut, ‘Option Base 0’). 
Parallèlement, on a un tableau 
‘Index%’, aussi de 20 éléments ; pour 
‘initialiser' ce dernier afin qu'il 
contienne les numéros des chaînes de 
caractères, il suffit de faire : 


FOR I%=0 TO 19 

Index$ (1I$%)=1% 

NEXT 

Lorsque l'on sort de cette boucle (qui 
nous laisse tous pantois tant sa 
complexité est étonnante), l'élément 0 
contient 0, l'élément 1 contient 1... et le 
dernier contient 19. 


On peut maintenant appeler la routine de 
tri ; en voici la syntaxe, à la manière du 
manuel du Basic Microsoft : 


TRILIB! premier élément du tableau de 
variables entières, premier élément du 
tableau de variables alphanumériques 
[nombre de chaînes à trier] 


Le troisième argument, facultatif, 
correspond au nombre de chaînes à trier 
(toujours en partant de la première). Il 
doit être un entier (<32767) et peut être 
passé à la routine de manière immédiate 
(‘20’), sous la forme d'une expression 
(‘Nombre%-10’) ou d'une variable 
entière (‘Nombre%’). Si cet argument 
est omis, toutes les chaînes sont triées. 
On pourrait donc avoir dans un 
programme un des appels suivants : 


TriLib! Index%(0),Chaine$ (0),20 

TriLib! Index%(0),Chaine$ (0), 

Nombre$-10 

TriLib! Index#%(0),ChaineS$ (0), 
Nombre% 

TriLib! Index%(0),Chaines$ (0) 


Au retour de la routine de tri, le tableau 
contenant les chaînes n'est pas modifié ; 
on trouve l'ordre des chaînes dans le 
tableau de variables entières. Ainsi, pour 
faire apparaître à l'écran le résultat du 
tri, on peut employer une boucle comme 
celle-ci : 


FOR I%=0 TO 19 
PRINT Chaines (Index3%(1%)) 
NEXT 


Tout ceci est mis en évidence par le 
programme de démonstration 
‘TriLib.Démo’, qui effectue le tri de 100 
chaînes de 200 caractères placées dans 
un fichier à accès relatif. 


Protections 


Afin d'éviter, autant que possible, les 
‘plantages’ dus à des passages de 
paramètres incorrects, la routine en 
assembleur effectue quelques tests et, si 
un problème est rencontré, provoque 
l'affichage du message “Erreur de 
syntaxe” (ou “Syntax error”, selon la 
version du Basic). Ceci apparaît dans les 
cas suivants : 


+ le premier argument ne correspond 
pas à un tableau de variables entières ; 

+ le tableau a plus d'une dimension ; 

+ le second argument ne correspond pas 
à un tableau de variables 
alphanumériques ; 

+ le troisième argument n'est pas un 
entier. 


Remarques : sans reprendre ce qui a 
été dit dans le numéro 21 de Pom's, il 
faut rappeler que la ‘Library’ doit se 
trouver de préférence sur la même 
disquette que le Basic et, sur un Mac 
Plus, au niveau 0 du HFS. De plus, il 
est indispensable d'initialiser la librairie 
avant le premier appel de la routine. 
Pour celle qui nous occupe aujourd'hui, 
il faut faire : 

LIBRARY "Îrilib.Rscr" 


Version 
‘Tableau de variables? 


Le fonctionnement de cette version, en 
ce qui concerne le tri, étant strictement 
identique, nous nous contenterons de 
citer ici les différences avec la version 
‘Library’. 


Mises à part les petites manipulations 
liées à cette méthode et évoquées 
maintes fois dans des numéros 
précédents de Pom's (installation de la 
routine dans un tableau de variables, 
affectation de la variable du ‘CALL” 
avec VARPTR..), il convient de 
signaler deux différences importantes. 
La première se rapporte à la syntaxe ; le 
premier argument doit ici être l'adresse 
du premier élément du tableau de 
variables entières (et non plus l'élément 
lui-même), soit : 

VARPTR(Index%(0)) 


De même, le second argument doit être 
l'adresse du premier élément du tableau 
de variables alphanumériques : 
VARPTR(Chaines (0)) 

Enfin, la présence du troisième 
argument devient indispensable (voir les 


problèmes de décalages dans la pile, 
numéro 16 de Pom's). 
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L'appel de la routine avec cette méthode 
doit ressembler à : 


A!=VARPTR(Routine%(0)) 
A! VARPTR(Index#(0)), 
VARETR(Chaine$ (0)),Nombre% 


La seconde différence porte sur les 
protections : il n'y en a pas ! Ceci 
s'avère ne pas être très gênant si l'on 
prend quelques précautions lors de la 
mise au point du programme. Après, 
protections ou pas, le programme 
fonctionnera de la même façon. 


Avant de passer à un autre point, nous 
aimerions ici réhabiliter le principe de 
l'installation d'une routine dans un 
tableau de variables, quelque peu 
dénigré ces derniers temps. 


Si les ‘Librairies’ apportent des 
avantages reconnus, le tableau de 
variables a aussi des points forts : 


+ le programme Basic n'a pas le ‘fil à la 
patte' supplémentaire (il a déjà 
l'interpréteur) que constitue la 
‘Library’ (ce n'est jamais qu'un 
fichier) ; 

+ on a pas le ‘temps mort dû au 
chargement du code de la routine (on 
le charge de toute façon, mais cela 
passe inaperçu s'il est chargé en 
même temps que le programme 
Basic) ; 

+ si l'on doit passer à la routine de 
nombreux paramètres (ou peu de 
paramètres, mais souvent), ce 
passage se faisant plus directement 
par la pile, il est possible de gagner 
un temps appréciable sur l'exécution 
du programme ; 

- enfin, nos Lecteurs qui ne possèdent 
pas le système de développement 
68000 et n'ont pas la disquette Mac 
26 ne peuvent pas utiliser la version 
‘Library’, alors qu'il leur est possible 
d'employer la version ‘Tableau’ en 
recopiant simplement les “DATA” du 
programme de démonstration, et ce 
même s'ils disposent seulement de la 
version 1.0 du Basic (la ‘Library’ 
fonctionne avec les versions 2.0 et 
plus, binaires ou décimales). 


Note : avec la version 1.0, la syntaxe 

d'appel de la routine est : 

A!=VARPTR (Routine#(0)) 

CALL A!(VARPTR(Index#(0)}), 
VARPTR(ChaineS$(0)),Nombre#) 


Les limites 


L'utilisation de la routine de tri 
n'apporte pas de contraites particulière 
pas rapport aux limites imposées par le 
Basic Microsoft, limites qui seront 
rarement atteintes : il est théoriquement 
possible de trier 32768 chaînes de 
32767 caractères soit beaucoup plus 
d'octets que peut en adresser un 
MC68000, processeur qui n'est pourtant 
pas ridicule en la matière. 
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En résumé, on peut dire qu'en pratique 
la seule limite est la capacité mémoire de 
votre Macintosh. 


Méthode de Tri 


Nous avons utilisé le tri par insertion, 
qui autorise des traitements d'assez 
courte durée de tableaux de chaînes de 
petite ou moyenne taille : un tableau de 
100 chaînes de 255 caractères est trié en 
moins de trois secondes, ce qui est, 
compte tenu du système de comparaison 
des chaînes mis en œuvre (voir 
ci-dessous), tout à fait honorable. 


Méthode de 
comparaison 


Généralement, les routines de tri 
comparent les chaînes de caractères en 
utilisant brutalement l'ordre des codes 
ASCII. Ainsi, la chaîne “Beaucoup” se 
retrouve placée avant “assez peu” 
puisque le code ASCII de “B” est 65 et 
le celui de “a” est 97. De même, la 
chaîne ’œuvre” sera placée après 
“oxyde”. La routine proposée par Apple 
dans un des ‘Packages’ du Macintosh 
utilise un mécanisme plus évolué qui 
permet d'obtenir des tris plus logiques. 


Le tri s'effectue selon deux niveaux de 
priorité qui sont visualisés par le tableau 
joint à cet article. La priorité absolue est 
donné au premier ordre (de haut en bas 
sur notre tableau). Pour des caractères 
placés aux mêmes niveaux (sur la même 
ligne du tableau), le second ordre est 
employé (de gauche à droite). On 
retrouve un mécanisme équivalent pour 
les ligatures Æ, æ, Œ et æ (il y a des 
moments où l'on est vraiment content 
d'avoir l'accessoire “ad litteram””). 


La notion d'ordre prioritaire peut 
s'appliquer simultanément sur plusieurs 
caractères : la chaîne “acide” sera placée 
avant la chaîne “Adage” car la 
comparaison À/a correspond au second 
niveau de priorité, alors que c/d 
concerne le premier niveau. 


‘Il est évident que cette méthode prend 


plus de temps que la comparaison pure 
et simple des codes ASCII, mais elle 
permet de ne pas se soucier de 
l'éventuelle présence de minuscules ou 
de caractères accentués. De plus, et si 
l'on fait abstraction du côté pratique, ce 
type de comparaison est 
intellectuellement plus satisfaisant que 
l'utilisation seule de l'ordre fixé par le 
code ASCII. 


Néanmoins, si vous avez des notions 
d'assembleur et désirez accélérer le 
traitement, vous pouvez remplacer 
l'appel de la routine (clairement repéré 
car encadré par deux instructions 
‘MOVEM.L’) par un branchement sur 
une routine de votre cru. 
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Programme 
TriLib.Démo'’ 
D Démonstration de la routine ‘TriLib’ 
(version “Library” de la routine de tri) 


Note : sur un Mac 128K0, ajouter 
‘CLEAR,26000,1024' en début de programme. 


5 
A 


ON ERROR GOTO Erreur 

LIBRARY "TriLib.Rscr":' Ouverture de la 
irie’ contenant notre routine de tri. 

DEFINT A-Z:DIM Index (99),ChaineS$ (99),Fenetres( 
7) 

" Le tableau ‘Index’ contiendra les numéros d'or 
dre des chaînes (de 1 au nombre de chaînes). 

" Le tableau ‘ChaineS$’ recevra les 100 chaînes d 
e caractères. 

" Le tableau ‘Fenetre’ n'a pas de rapport avec 1 
a routine de Tri : il s'agit du tableau qui c 
ontiendra le code objet de la routine de ferm 
eture des fenêtres, publiée dans le numéro 19 

de Pom's. Les trois lignes suivantes concern 
ent aussi cette routine. 


DATA &h42A7,&hA924,&h2E1F,&h6706,&h2F07,&hA916, 
&h60F2,&h4E75 

FOR 1I=0 TO 7:READ Fenetres(Il):NEXT 

A!=VARPTR (Fenetres(0)):A! 

‘ Ouverture de deux fenêtres. La fenêtre 1 sera 
utilisée pour les messages, alors que la fenê 
tre 2, beaucoup plus grande, autorisera la vi 
sualisation du début des chaînes de caractère 
s. 

WINDOW 2,"",(8,46)-(503,337),3:TEXTSIZE 12:TE 
XTFONT O:WINDOW 1,"",(8,24)-(503,41),3:TEX 
TSIZE 12:TEXTFONT 0 

* On ‘construit’ 100 chaînes de caractères avec 
des caractères choisis de façon aléatoire ent 
re ‘A’ et ‘Z’. Une fois qu'une chaîne contien 
t ses 200 caractères, on l'affiche. 

BEEP:PRINT "Constitution aléatoire des chaînes 

(100 fois 200 caractères) en cours"; 

WINDOW OUTPUT 2:FOR I=0 TO 99:RANDOMIZE TI 
MER:FOR J=1 TO 200:Chaine$ (I) =Chaine$ (I) +CH 
R$(65+INT(RND*26)):NEXT:PRINT "Chaîne" I+1 

"z " Chaine$ (I) :NEXT 

’ Les chaînes de caractères sont enregistrées no 
n triées dans un fichier à accès relatif, com 
portant 100 enregistrements de 200 caractères 


‘Libra 


WINDOW OUTPUT 1:CLS:BEEP:PRINT "Enregistrem 
ent des chaînes non triées dans le fichier “C 
haînes”.."; 

OPEN"R",1,"Chaînes",200:FIELD 1,200 AS Tampons 

FOR I=0 TO 99:LSET Tampon$-Chaines (I) :PUT 1,1+ 
l:NEXT:CLOSE 

! Les chaînes sont maintenant relues (on considè 
re qu'elles ont été créées par un autre progr 
amme ou sont déjà existante) et, en même temp 
s, on initialise le tableau d'index. 

CLS:BEEP:PRINT "Lecture en mémoire des chaînes 

non triées (depuis le fichier)"; 

OPEN"R",1,"Chaînes",200:FIELD 1,200 AS Tampons 

FOR I=0 TO 99:GET 1,1+1:Chaine$ (1) =Tampon$:Ind 
ex(I)=I:NEXT:CLOSE 





’ Appel de la routine de Tri. Comme nous avons 1 
‘intention de trier toutes les chaînes, il es 
t possible d'omettre le troisième argument (n 
ombre de chaînes à trier). 

CLS:BEEP:PRINT "Tri en mémoire des 100 chaînes 
de caractères.…"; 

TriLib! Index(0),Chaine$ (0) 


! Les chaînes sont triées. Rappelons que seul le 

contenu du tableau de variables entières ‘In 

dice’ reflète le travail effectué par la rout 
ine : il contient l'ordre des chaînes. 

CLS:BEEP:PRINT "Affichage et enregistrement de 
s chaînes triées.…."; 

WINDOW OUTPUT 2:CLS:OPEN"R",1, "Chaînes", 200: 
FIELD 1,200 AS Tampon$:FOR I-0 TO 99:LSET 
Tampon$=Chaine$ (Index(I}}:PUT 1,1I+1:PRINT Ch 
aine$ (Index (I)) :NEXT:CLOSE 


’ Le fichier ‘Chaînes’ contient maintenant les 1 
00 chaînes de caractères dans l'ordre. 

WINDOW OUTPUT 1:CLS:BEEP:PRINT "Traitement 
terminé, appuyez sur une touche pour sortis 


. 
’ 


WHILE INKEY$="":WEND : END 

! Utilisé en cas d'erreur (disquette saturée, 
r exemple). 

Erreur:RESUME Erreur2 

Erreur2:WINDOW OUTPUT 1:CLS:BEEP:PRINT "Ezz 
eur ! Impossible de continuer.."; 

WHILE INKEY$="":WEND:END 





Programme ‘Tri.Démo’ 


Démonstration de la routine ‘Tri’ 
(version “tableau” de la routine de tri) 


Note : sur un Mac 128Ko, ajouter ‘CLEAR,26000,1024' en 
début de programme. 


ON ERROR GOTO Erreur:DEFINT A-Z:DIM Index(99),Chaines 
(99) ,Fenetres(7),Routine (100): Le tableau ‘Routine’ re 
cevra le code objet de la routine de tri. 

DATA &h42A7,&hA924, &h2E1F,4h6706,&h2F07,&hA916,&h60F2,8h 
4E75 

* Code objet de la routine de tri. 

DATA &h4E56,&hFFF2,6@h206E,&hE, &h226E, &hA, &h302E, &h8, &h53 
40,68h3D40, &hFFFE, &h7201,&h3401, &hD442,&h3630,&h2000,&h5 
98F,&h3F03,&h6168, &h3D5F 

DATA &hFFF6,&h2D5F, &hFFF2,&h3802,&h598F, &h3F30, &h40FE, &h 
6156,6&h3D5F, &hFFFC, &h2D5F, &hFFF8, &h48E7, &hF0C0, &h558F, & 
h2F2E, &hFFF2,&h2F2E, &hFFF8, &h3F2E, &hFFF6, &h3F2E,&hFFFC, 
&h3F3C,&hA, &hA9ED, &h4A5F, &h4CDF, &h30F,&h6B06 

DATA 6h3183,6&h4000,&h6016,&h31B0, &h40FE, &h4000,&hC44,&h2 
,: 6h6606,&h3183,&h40FE, &h6004, &h5544, &h60B0, &hB26E, &hFFF 
E,&h6704,&h5241, &h608E, &h4E5E, &h4E75, &h4E56, &h0,&h48E7, 
&hC000,&h302E, &h8, &hCOFC, &h5, &h7200 

DATA &h1231,&h2,&hE189,&h1231,£&h3,&hE189,&h1231,&h4,&h2D 
41,6hA,&h1231,&h0,&hE149,&h1231,&h1,&h3D41,6h8, &h4CDF,& 
h3,&h4E5E, &h4E75 

FOR I=0 TO 7:READ Fenetres(I):NEXT 

" Installation de la routine de tri dans le tableau de va 
riables entières ‘Routine’ 

FOR I=0 TO 100:READ Routine(I):NEXT 

A!=VARPTR(Fenetres (0) ):A!:WINDOW 2,"",(8,46)-(503,337), 
3:TEXTSIZE 12:TEXTFONT O:WINDONW 1,"",(8,24)-(503,4 
1),3:TEXTSIZE 12:TEXTFONT 0:BEEP:PRINT "Constituti 
on aléatoire des chaïnes (100 fois 200 caractères) en c 
ours"; :WINDOW OUTPUT 2:FOR I=0 TO 939 

RANDOMIZE TIMER:FOR J=1 TO 200:ChaineS(i)=Chaines$(i)+ 
CHR$ (65+INT(RND*26)):NEXT:PRINT "Chaîne" I+1 ": " C 
haine$(I):NEXT:WINDOW OUTPUT 1:CLS:BEEP:PRINT "En 
registrement des chaînes non triées dans le fichier “Ch 
aines”.…",;:OPEN"R", 1, "Chaînes", 200 
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FIELD 1,200 AS Tampon$:FOR I=0 TO 99:LSET TamponS=Chai 
ne$(Il):PUT 1,1+1:NEXT:CLOSE:CLS:BEEP:PRINT "Lectur 
e en mémoire des chaînes non triées (depuis le fichier) 
…"; :OPEN"R",1,"Chaînes",200:FIELD 1,200 AS TamponS:F 
OR I=0 TO 99:GET 1,1I+1:Chaine$(I)=Tampons 

Index (I)=I:NEXT:CLOSE:CLS:BEEP:PRINT "Tri en mémoire 
des 100 chaînes de caractères.."; 

" Appel de la routine de tri. Attention : avec cette vers 
ion, tous les arguments sont requis. De plus, aucun tes 
t n'est effectué quant à la validité des arguments. 

Tri!=VARPTR(Routine(0)):Tri! VARPTR(Index(0)),VARPTR(C 
haineS$(0)),100 


CLS:BEEP:PRINT “Affichage et enregistreme [7 
nt des chaînes triées…";:WINDOW OUTPUT e ==) 
2:CLS:OPEN"R",1,"Chaïnes",200:FIELD 1,2 Es 
00 AS Tampon$:FOR I=0 TO 99:LSET Tampon 
S=ChaineS (Index (I)):PUT 1,1I+1:PRINT Chai 
ne$ (Index (I})):NEXT:CLOSE 

WINDOW OUTPUT 1:CLS:BEEP:PRINT "Traitement terminé, a 
ppuyez sur une touche pour sortir."; 

WAILE INKEY$=-"":WEND:END 

Erreur:RESUME Erreur2 

Erreur2:WINDOW OUTPUT 1:CLS:BEEP:PRINT "Erreur ! Imp 
ossible de continuer"; :WHILE INREY$="":WEND:END 





Source ‘TriLib.Asm’ (version ‘Librairie:) 


: Utilisé pour l'appel du ‘Package’ numéro 6, baptisé ‘International Utilities Package’. Il est 


; Situé dans le fichier ‘système’ (ressource INTL 6). 


.Trap __Pack6 $A9ED 
GetNextLibArg EQU $2A 
BasicError EQU $42 
IUMagString EQU 10 
VariableChaine EQU 2 
VariableEntiere EQU 3 
UneDimension EQU 1 


: Cette routine est utilisée pour saisir un paramètre passé à la librairie depuis le Basic. 
; Routine autorisant l'affichage de messages d'erreur du Basic. 
; Ce ‘sélecteur’ correspond à la routine de comparaison de chaînes située dans Pack 6. 


; Valeur retoumée dans DO par ‘GetNextLibArg' pour une variable de type ‘chaîne’. 
; Valeur retournée dans DO par ‘GetNextLibArg' pour une variable de type ‘entier. 
: Pour s'assurer que le tableau de variables entières a bien une seule dimension. 


: Saisies et vérifications des paramètres passés à la routine de tri depuis le programme Basic. Nous devons trouver, dans l'ordre, la 
; première variable d'un tableau de variable entières (une seule dimension), la première variable d'un tableau de variables ‘chaînes’ et, enfin 
; une variable entière, ou rien si le troisième argument (facultatif) est omis. 


; Saisie du premier paramètre. S'il s'agit d'une variable entière, ‘GetNextLibAr' retourne 
: 3 dans les 16 bits de poids faible de DO. Si la valeur est différente (autre type de 
: variable), on provoque l'affichage d'un message d'erreur. Cette comparaison nous permet 


: aussi de détecter une éventuelle variable entière ‘temporaire’ (A%°10, INT(T%(2)/3)...) car, 
: dans ce cas, le bit 15 de DO est mis à 1. On obtiendrait donc $8003 au lieu de 3. 


: Au retour de la routine ‘GetNextLibArg', et pour une variable entière, le registre 
: d'adresse A2 pointe sur le contenu de cette variable. Pour s'assurer que le tableau de 


: variable entières est bien à une seule dimension, on vérifie le contenu de l'octet situé trois 
: octets avant l'adresse pointée par A2. Cet octet contient le nombre de dimensions du 
: tableau (voir l'article ‘Call : un exemple d'application’, numéro 16 de Pom's). 


: On sauvegarde l'adresse du premier élément du tableau de variables dans D6. 
: Saisie du second paramètre. S'il s'agit d'une variable ‘chaîne’, ‘GetNextLibAr' retourne 
: 2 dans les 16 bits de poids faible de DO. Si la valeur est différente, on provoque 


: Pour une variable ‘chaîne’, ‘GetNextLibArg' retourne l'adresse du descripteur de la chaine 


: dans A2. Dans ce descripteur, on trouve dans l'ordre, la longueur de la chaîne sur deux 
: octets suivie de son adresse sur 3 octets (24 bits). On sauvegarde l'adresse du premier 


: Saisie (ou tentative) du troisième paramètre (qui doit être une variable entière). 
: On place l'adresse du premier élément du tableau de variables entières dans le registre AO. 


: On n'utilisera pas ce registre tout de suite, mais effectuer cette opération maintenant nous 


: On teste le contenu de DO. S'il est nul, il n'y a plus de paramètre dans la liste passée 
: depuis le Basic. On se dirige vers l'étiquette @1 pour prendre le nombre par défaut. 
: On force le bit 15 de DO à 0 car on peut ici avoir une variable entière temporaire (une 


: Comme vu précédemment, A2 pointe sur le contenu de la variable entière. On place 
; cette valeur (nombre de chaînes à trier) dans DO et on se dirige vers le tri. 
; Si nous n'avions pas de troisième paramètre, il faut trier toutes les chaînes de 


JSR GetNextLibArg(A5) 
CMPI #VariableEntiere, DO 
BNES  @3 
CMPI.B  #UneDimension,-3(A2) 
BNES  @3 
MOVE.L A2,D6 
JSR GetNextLibArg(A5) 
CMPI #VariableChaine,DO 
BNES  @3 ; l'affichage d'un message d'erreur. 
MOVE.L A2,D5 
; descripteur dans DS. 
JSR GetNextLibArg(A5) 
MOVEA.L D6,A0 
: évitera de le faire deux fois, plus tard. 
TST DO 
BEQ.S @1 
ANDI #$7FFF,D0 
; expression comme “"NombreChaine-10", par exemple). 
CMPI #VariableEntiere, DO ; On s'assure que le paramètre passé est bien un entier. 
BNE.S  @3 ; Sinon, message d'erreur. 
MOVE (A2),D0 
BRAS  @2 
@1i MOVE  -2(A0)D0 
BRAS  @2 


: caractères. Pour en connaître le nombre, on récupère le nombre de variables entières 


: contenues dans le tableau. Ce nombre se trouve dans les deux octets précédents le premier 
; élément (voir le numéro 16 de Pom's). La valeur trouvée est placée dans DO et on se dirige 


; vers la routine de tri. 


; La routine ‘ BasicError’ provoque l'affichage d'un des messages d'erreur du Basic Microsoft. L'argument doit être placé dans le 


@3 MOVEQ #2,D2 
JSR BasicError(AS) 


; Routine de tri. La méthode utilisée est le tri par insertion. 
; On prévoie un tampon de 14 octets au sommet de la pile dans lequel nous placerons : 
; - l'adresse -4 octets- de la première chaîne (chaîne extraite) ; 

; + la longueur -2 octets- de la première chaîne ; 

; - l'adresse -4 octets- de la seconde chaîne (chaîne à comparer) ; 


Tampon Set -14 
AdrChaineExt Set Tampon 
LongChaineExt Set -10 
AdrChaineComp Set -8 
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: registre de donné D2. 2 correspond à “SYNTAX ERROR" (ou son équivalent français). 
; Le retour à l'interpréteur est aussi assuré par ‘BasicError. 











; * la longueur -2 octets- de la seconde chaîne ; 

; * le nombre -2 octets- de chaînes à trier (moins un). 

; Création du tampon de 14 octets au sommet de la pile. 

; L'adresse du descripteur de la première chaîne de caractères est placée dans le registre A1. 
; le registre DO, qui contient le nombre de chaînes à trier, est décrémenté de 1. On a donc 

; dans DO le nombre moins 1, cæ qui convient mieux à une routine en assembleur (premier = 0, 
; dernier = N-1). 

; On sauvegarde le nombre dans le tampon au sommet de la pile. 

; Le registre D1 sert de ‘compteur d'extraction’. On y place la valeur 1, ce qui correspond à la 

; Seconde chaîne à trier. 


; Une copie du compteur est placée dans le registre D2. 

; Le contenu du registre D2 est multiplié par 2. Ceci nous donne le décalage entre le début du 
; tableau de variables entières et la variable entière contenant l'index de la chaîne à extraire 
; (rappelons que les index doivent être placés dans le tableau de variables entières par le 

; programme Basic. Les index constituent les ‘numéros d'ordre’ des chaînes). 

; L'adresse du tableau de variables entières (A0) plus le décalage par rapport au début du 

; tableau (D2) nous donne l'adresse de l'index, que l'on place dans le registre D3. 

; On réserve une place de 4 octets au sommet de la pile, pour le retour par la routine 

; ‘AdresseEtLongueur’ de l'adresse de la chaîne extraite. Ensuite, l'index de la chaîne est 

; empilé. La longueur de la chaîne sera retournée dans la pile à l'endroit où est placé l'index. 
; La longueur de la chaîne est placée dans le tampon au sommet de la pile. 

; L'adresse de la chaîne est aussi placée dans le tampon au sommet de la pile. 

; Une copie du décalage est placée dans le registre D4. 


; Réserve une place pour le retour de l'adresse de la chaîne à comparer. 

; AO+D4-2 nous donne l'adresse de l'index de la chaîne à comparer (au ‘premier tour’ de la 
; boucle secondaire, il s'agit de l'index précédent celui de la chaîne extraite). Cet index est 
; empilé et on appelle la routine ‘AdresseEtLongueur’. 


(SP)+,LongChaineComp{(A6) ; La longueur de la chaîne est placée dans le tampon au sommet de la pile. 
(SP)+,AdrChaineComp{A6) ; L'adresse de la chaîne est aussi placée dans le tampon au sommet de la pile. 


; Les registres qui sont modifiés par la routine ‘Pack6' sont sauvegardés au sommet de la pile. 
; On prévoie un emplacement de 2 octets pour le retour du résultat de la comparaison. 

; L'adresse de la chaîne extraire (Chaîne A) est empilée. 

; L'adresse de la chaîne à comparer (Chaîne B) est empilée. 

; La longueur de la chaîne extraire (Chaîne A) est empilée. 

; La longueur de la chaîne à comparer (Chaïne B) est empilée. 

; On empile enfin le ‘sélecteur de routine’ correspondant à la routine de comparaison. 

; Appel de la routine ‘Pack6”. Au retour, le résultat situé au sommet de la pile est égal à -1 si la 
; chaîne A est inférieur à la chaîne B, 0 si les deux chaînes sont égales, 1 si la chaîne A est 

; Supérieure à la chaîne B. TST (SP)+ positionne les bits Z (zéro) et N (négatif) du registre 

; d'état en fonction du résultat obtenu. 

; Les registres retrouvent leur contenu initial (comme avant l'appel de la routine ‘Pack6'). 

; Vers l'étiquette ‘inferieure’ si la chaîne extraite est inférieure à la chaîne à comparer. 

; Si la chaîne extraite est supérieure ou égale à la chaîne comparée, on insère l'index de la 

; chaîne extraite dans le tableau de variables entières, et dans l'élément suivant celui qui 

; contient l'index de la chaîne comparée. On sort ensuite de la boucle secondaire. 


; Le contenu de l'élément du tableau correspondant à l'index de la chaîne comparée est placé 
; dans l'élément suivant (décalage vers le bas). 

; Si D4 contient 2, la chaîne comparée était la première chaîne (puisqu'on utilise -2(A0,D4)). 

; Si ce n'est pas le cas, branchement sur l'étiquette @1. 

; L'index de la chaîne extraite est mis à la place de l'index de la chaîne comparée. Cette petite 
; manipulation supplémentaire autorise l'emploi du premier élément de chaque tableau. On sort 
: ensuite de la boucle secondaire. 

; Le décalage depuis la base du tableau de variables entières est diminué de deux pour 

; ‘pointer’ sur l'élément contenant l'index précédent celui de la chaîne qui vient d'être 


; comparée. 


; On compare le compteur (D1) au nombre de chaînes à comparer. Si les valeurs sont égales, 
; le traitement est terminé, retour au Basic. 

; Sinon, on incrémente le compteur de 1. 

; On va extraire la chaîne suivante. 


: Abandon du tampon au sommet de la pile. 
; Pour signaler à l'interpréteur Basic qu'il n'y a pas d'erreur. 
; Retour au Basic. 


; Cette routine retourne au sommet de la pile l'adresse et la longueur de la chaîne dont l'index a été empilé par le programme appelant. 
; Décalage entre l'adresse pointée par la registre A6 et l'index empilé par le programme. 
; Décalage entre l'adresse pointée par A6 et l'endroit dans la pile où sera placée la longueur. 


LongChaineComp Set -4 
NombreElements Set -2 
@2 LINK A6,#Tampon [2] 
MOVEA.L D5,A1 z 
SUBQ #1,D0 . 6 Æ 
. LES 
D 
MOVE  DO,NombreElements(A6) 
MOVEQ  #1,D1 
BouclePrincipale 
MOVE D1,D2 
ADD D2,D2 
MOVE  O(A0,D2),D3 
SUBQL #4,SP 
MOVE D3,-(SP) 
BSR.S  AdresseEtLongueur 
MOVE (SP}+,LongChaineExt(A6) 
MOVE.L (SP)+,AdrChaineExt(A6) 
MOVE D2,D4 
BoucleSecondaire 
SUBQ.L #4,SP 
MOVE  -2(A0,D4),-(SP) 
BSR.S  AdresseEtLongueur 
MOVE 
MOVE.L 
MOVEM.L A0-A1/D0-D3,-(SP) 
SUBQL #2,SP 
MOVE.L AdrChaineExt(A6),-(SP) 
MOVE.L AdrChaineComp(A6),-(SP) 
MOVE LongChaineExt(A6),-(SP) 
MOVE  LongChaineComp(A6),-(SP) 
MOVE  #IUMagString,-(SP) 
_Pack6 
TST (SP}+ 
MOVEML (SP)+,A0-A1/D0-D3 
BMI.S Inferieure 
MOVE D3,0(A0,D4) 
BRAS  SortieBoucleSecondaire 
Inferieure 
MOVE _ -2(A0,D4),0(A0,D4) 
CMPI #2,D4 
BNE.S @1 
MOVE D3,-2(A0,D4) 
BRAS  SortieBoucleSecondaire 
@1 SUBQ #2,D4 
BRAS  BoucleSecondaire 
SortieBoucleSecondaire L 
CMP NombreElements(A6),D1 
BEQS Fin 
ADDQ #1,D1 
BRAS  BouclePrincipale 
Fin  UNLK A6 
MOVEQ  #0,D0 
RTS 
Index Set 8 
Longueur Set 8 
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Adresse Set 10 
AdresseEtLongueur 
LINK A6,#0 


MOVEM.L D0-D1,-(SP) 
MOVE Index(A6),D0 


MULU  #5,D0 
MOVEQ  #0,D1 
MOVE.B 2(A1,D0),D1 
LSLL  #8,D1 
MOVE.B 3(A1,D0),D1 
LSLL  #8,D1 


MOVE.B 4{A1,D0),D1 
MOVE.L D1,Adresse(A6) 
MOVE.B O(A1,D0),D1 

LSL #8,D1 

MOVE.B 1(A1,D0),D1 
MOVE Di,Longueur(A6) 


MOVEM.L (SP)+,D0-D1 
UNLK A6 
RTS 





; Décalage entre l'adresse pointée par A6 et l'endroit où sera placée l'adresse. | "1 | 
ch 


; Sauvegarde les registres dont le contenu est modifié par cette routine. SN 
: L'index de la chaîne est placé dans DO. D 

; On multiplie l'index par 5 afin d'obtenir le décalage par rapport au descripteur de la première 
; chaîne à trier (Voir le schéma représentant les descripteurs de chaînes et leurs contenus). 
; Les 32 bits du registre D1 sont mis à zéro. 

; Les bits 16 à 23 de l'adresse de la chaîne sont placés dans les bits 0 à 7 du registre D1. 

; On décale le contenu du registre D1 de 8 bits vers la gauche. 

; Les bits 8 à 15 de l'adresse de la chaîne sont placés dans les bits 0 à 7 du registre D1. 

; On décale le contenu du registre D1 de 8 bits vers la gauche. 

; Les bits 0 à 7 de l'adresse de la chaîne sont placés dans les bits 0 à 7 du registre D1. 

; L'adresse ‘reconstituée’ de la chaîne est placée dans la pile. 

; Les bits 8 à 15 de la longueur de la chaîne sont placés dans les bits 0 à 7 du registre D1. 

; On décale le contenu du registre D1 de 8 bits vers la gauche. 

; Les bits O à 7 de la longueur de la chaîne sont placés dans les bits O à 7 du registre D1. 

; La longueur de la chaîne est placée dans la pile. 

; Toutes ces manipulations (transferts d'octets et rotations) sont rendues nécessaires par le 
; fait que les descripteurs de chaînes sont alignés seulement une fois sur deux sur des 

; adresses paires ; il n'est donc ici pas question d'effectuer des opérations sur des mots ou 

; des longs mots. 

; Le contenu des registres DO et D1 est restitué. 

; Retour au programme appelant. 





Fichier ‘TriLib.Job’ 


Asm  LiBinit.AsmExec Edit 
Asm  TriLib.Asm Exec Edit 
Link  TriLib.Link Exec Edit 
RmakerTriLib.R Finder Edit 





Source ‘LiBinit.Asm’ 


LIBVER_Result  EQU 6 


CLR LIBVER_Result(A0) 


MOVEQ  #0,D0 
RTS 





Fichier ‘TriLib.R’ 


Trilib.Rscr 

BLIB 

TYPE CODE = GNRL 
LiBinit,1 

R 

Trilib CODE 1 


TYPE CODE = GNRL 
TriLib,2 

R 

Trilib CODE 2 


Fichier ‘TriLib.Link’ 


/ OUTPUT Trilib 
LiBinit.Rel 


< 
TriLib.Rel 
$ 


Source ‘Tri. Asm' Index Sets 
p ‘ : , Longueur Sets 
{version ‘tableau de variables) Aves Set 10 
x AdresseLongueur 
-Trap _Pack6 $A9ED 4E56 0000 LINK A6,#0 
IUMagString EOU 10 48E7 CO00 MOVEML  D0-D1,4SP) 
302E 0008 MOVE Index(A6),D0 
Tampon Set -14 COFC 0005 MULU #5,D0 
AChEx Set Tampon 7200 MOVEQ #0,D1 
LChEx Set “10 1231 0002 MOVE.B 2(A1,D0),D1 
AChC Set 8 E189 LSLL #8,D1 
LChC Set 4 1231 0003 MOVE.B 4A1,D0),D1 
NbreElem Set -2 E189 LSLL #8,D1 
Nombre Set 8 1231 0004 MOVE.B 4(A1,D0),D1 
VarptrChaines Set 10 2D41 009À MOVE.L D1,Adresse(A6) 
VarptrEntiers Set 14 1231 0000 MOVE.B 0{A1,D0),D1 
E149 LSL #8,D1 
4ES6 FFF2 LINK A6 #Tampon 1231 0001 MOVE.B 1(A1,D0),01 
206E 000€ MOVEAL  14{A6),A0 3D41 0008 MOVE D1,Longueur(A6} 
226E 000À MOVEAL  10{A6).A1 ACDF 0003 MOVEML  (SP}+,D0-D1 
302E 0008 MOVE 8{A6),D0 4ESE UNLK A6 
5340 SUBQ #1,D0 4875 RTS 
3040 FFFE MOVE DO, NbreElem(A6) 
7201 MOVEQ #1,p1 
BouclePrincipale MP nn Ro rene iaminoneenqapaienemnenng 











3401 MOVE D1,02 
D442 ADD D2.D2  YARPTR(Tableau$(0)) 
3630 2000 MOVE O(A0,D2),D3 È 
598F SUBQL #4,SP H 
3F03 MOVE D3,{SP) ; 
6168 BSR.S AdresseLongueur : (0) Î 2 3 4 
3D5F FFF6 MOVE (SP)+,LChEx(A6) 
2057 FFF2 MOVEL  (SP)+AChEx(A6) Longueur Adresse 
is D re Chaîne 1 | Chaîne 1 
598F SUBOL #4,SP 
‘3F30 40FE MOVE -2(A0,D4),{SP) de sa es 
6156 BSR.S AdresseLongueur 
3D5F FFFC MOVE (SP}+,LChC{A6) Chaîne ane 
2D5F FFF8 MOVEL (SP}+,AChC(A6) 
48E7 FOCO MOVEML  A0-A1/D0-D3,4{SP) 
5587 SUBQL #2,5P L l | | 
2F2E FFF2 MOVE.L AChEx(A6),-(SP) 
2F2E FEFS MOVE.L AChC{A6),{SP) 
3P2E FEF6 MOVE LChEx(A6),{SP) 
3F2E FFFC MOVE LChC{A6),{SP) 
3F3C 000À MOVE #IUMagString,-{SP) 
A9ED _Pack6 
se is Pour 7 
4CDF 030F J % 
6B06 BMLS Inferieure C aine ane 
3183 4000 MOVE D3,0(A0,D4) 
6016 BRAS SortieBoucle 
Inferisure 
31B0 40FE 4000 MOVE -2(A0,D4),0(A0,D4) 
OC44 0002 CMPI #2,04 
6606 BNE.S @1 
3183 40FE MOVE D3,-2(A0,D4) 
6004 BRAS SortieBoucle 
5544 @1 SUBQ #2,04 
60B0 BRAS BoucleSecondaire 
SortieBoucle : 
En M ms Table des descripteurs pour 
ADDQ D a 
ps BRAS  BoudePrndpals un tableau de chaînes de 
425 Fin UNLK A6 caractères (une di mension) 
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Quel que soit le langage que l'omutilise, 
il peut être intéressant d'avoir un 
minimum de connaissances en 
assembleur, ne serait-ce que pour écrire 
des petites routines destinées à pallier 
certaines déficiences du langage 
(traitement trop gourmand en temps ou 
simplement impossible). 


Seulement, le 68000 étant un 
microprocesseur puissant, il offre un jeu 
d'instructions étendu, autorise souvent 
plusieurs syntaxes par instruction, 
chacune d'entre-elles offrant 
généralement de nombreux modes 
d'adressage possibles. Si l'on ajoute à 
cela la taille des opérandes (octets, mots 
ou longs mots) qui varie en fonction des 
instructions et des syntaxes, l'effet sur 
le contenu du registre d'état, plus 
quelques cas particuliers, on comprend 
qu'il n'est pas facile de mémoriser ce 
qu'il est possible de faire avec le 68000, 
ou plutôt ce qui ne l'est pas (c'est ce 
dernier point qui, souvent, nous oblige à 
faire un réassemblage). 

Il est bien sûr envisageable de consulter 
un manuel de référence du 68000 
lorsque cela se révèle nécessaire, mais 
l'expérience montre que cette méthode 
n'est pas très pratique, l'information 
recherchée étant généralement noyée 
dans d'autres (qui pratique l'assembleur 
et n'a jamais confondu les modes 
d'adressage autorisés pour l'opérande 
source, et ceux autorisés pour 
l'opérande destination ?). 

D'où l'idée d'écrire un accessoire de 
bureau qui permettrait une consultation 
simple et immédiate lorsqu'une 
vérification s'impose. 


Utilisation 


Nous avons voulu cet accessoire aussi 
pratique que possible ; pour cette raison, 
on peut le commander entièrement avec 
la souris bien sûr, mais aussi avec le 
clavier. 


Changement 
d'instruction 


Avec la souris en cliquant dans le 
tableau des instructions (l'opération 
n'est prise en compte que lorsque le 
bouton est relaché). 


Avec le clavier : 


+ la touche tfabulation déplace la 
sélection d'une position vers la 
droite ; 

+ la touche ‘back space’ déplace la 
sélection vers la gauche ; 

+ un retour chariot déplace la 
sélection vers le bas ; 

+ un retour chariot accompagné de la 
touche majuscule déplace la sélection 
vers le haut. 


Dans tous les cas, un déplacement hors 
des limites sélectionne l'instruction 
située le long du bord opposé du 
tableau. 


Ces déplacements peuvent aussi être 
obtenus avec les touches fléchées du 
Macintosh Plus. 


La sélection d'une instruction entraîne : 


+ l'affichage de la syntaxe (ou des 
syntaxes, puisqu'il peut en exister 
jusqu'à trois) ; 

+ l'affichage de l'effet de l'instruction 
sur le registre d'état ; 

+ l'inversion des modes d'adressage 
valides pour les opérandes source et 
destination (pour la première syntaxe 
s'il y en a plusieurs) ; 

+ l'inversion des longueurs valides 
(pour la première syntaxe s'il y en a 
plusieurs) ; 

+ si nécessaire, un message signalant 
un cas particulier (pour la première 
syntaxe). 


Changement de syntaxe 


Avec la souris en cliquant sur le 





68000’s 
Julien Thomas 


bouton correspondant, de la manière 
habituelle. 


2217271 227747 PAIE LL 
TRAP_|TRAPU UNLK | 


©-SDD <AE>,Dn 
© ADD Dn,<AE> 


Si Source = än 


:.W et L seulement. 





Avec le clavier : 


* sur un Mac 128 ou 512 en appuyant 
sur la touche Entrée ; 

* sur un Mac Plus, en appuyant sur 
Entrée où Annulation. 


Les indications fournies par l'accessoire 
sont modifiées en conséquence. 


Le registre d'état 


Pour indiquer l'effet des instructions sur 
les bits du registre d'état, nous avons 
employé la méthode suivante : 


+ case noircie pour un bit positionné 
(mis à 0 ou 1 en fonction du résultat) ; 

+ case grisé pour un bit dont l'état n'est 
pas défini ; 

+ un ‘l’sile bit est toujours à 1 ; 

+ un ‘0’ si le bit est toujours à O; 

+ une case vide si l'état du bit n'est pas 
modifié par l'instruction. 





É Bit X positionné 


G 








.Trap _CopyBits SABEC Tr _LineTo SA891 
Fichier » Source Tr  _DisposWindow SA914 7 Mono 5200 
‘ 5 , mn DrawChar SAB83 rap _NewCon 

F68000.Job S68000.Asm ‘Te _DrawControls  SA969 Trap _NewPrr SAE 

.Trap _DrawStrin SA884 Trap _NewWindow  $A913 

Asm S68000.Asm Exec Edt INCLUDE S68000/1.Asm Trap —EndUpdats SA923 Trap _PaintRect SABA2 

Link  F68000.Link Font-DA Mover Edit INCLUDE  S68000/2.Asm (Trep _EraseRect SABA3 Trap _PenMode SAB9C 

END .Trap _FindControl  $A96C Trap _PenNormal  SA89E 

.Trap _FrameRlect  S$ABA1 Trap _PenPat SA89D 

Fichier .Trap _GetCRefCon  $A95A Lo ee _ 
, .Trap _GetCiiValue  $A960 Tr _PtinRect 

‘F 68000. Li n k Source , .Trap _GetCursor SA9B9 .Trap _SetCtiValue $A963 

S68000/1.As5sm Trap  _GetMouse  SA972 Los Seturser saus! 

NAT .Trap _GetPixel $SA865 -Træ  _SetPort 73 

IResources Note : le caractère ‘J’ indique la Tr _GetPort SA874 Trap _ShowControl  SA957 

S68000 continuité d'une ligne. .Trap _GlbalToLocal S$A871 Trap _StilDown SA973 

Joutput Accessoire 68000 RESOURCE 'DRVR' 29 ‘68000"s" .Trap _HideControl  SA958 Trap _SysBeep SA9C8 

{Type ‘DFIL''DMOV .Trap  _InitCursor $A850 Traæp  _TEinit SA9CC 

$ .Trap _BeginUpdate $A922 .Trap  _invertRect SABA4 Tr _TexFont SAB87 
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.Trææ _TextMode $A889 
.Træ _TextSize $A88A 
.Træp _TrackControl  $A968 
.Træp _ValidRect $A92A 
SrcOr Equ 1 
SrcXOr Equ 2 
PatCopy Equ 8 
PatOr Equ 9 
PatXor Equ 10 
geneva Equ 3 
monaco Equ 4 
White Equ -8 
Black Equ -16 
Gray Equ -24 
top Equ 0 
left Equ 2 
bottom Equ 4 
right Equ 6 

v Equ 0 

h Equ 2 
arrow Equ -108 
mButDwnEvt Equ 1 
keyDwnEvt Equ 3 
keyUpEvt Equ 4 
autoKeyEvt Equ ] 
updatEvt Equ 6 
activateEvt Equ 8 
evtNum Equ $o 
evtMessage Equ $2 
evtMouse Equ $A 
evtMeta Equ $E 
evMBut Equ SF 
accEvent Equ $40 
accCursor Equ $42 
activeFlag Equ 0 
shittKey Equ 9 
portRect Equ $10 
WindowKind Equ $6C 
WindowSize Equ $ac 
noGrowDocProc Equ 4 
radioButProc  Equ 2 
iBeamCursor Equ 1 
contriRect Equ $8 
contriVis Equ $10 


dCtiWindow Equ $iE 
dCtiRefNum Equ $18 


CSCode Equ $iA 
CSParam Equ fic 
TempRect Equ $9FA 
clear Equ $200 


: Equivalences qui seront utilisées pour 
; Indiquer les modes d'adressage 

; autorisés : PasM = Pas de Mode 

; d'adressage, Mi = Mode 1 (Dn)... 


PasM Equ %0000000000000000 
Mi Equ %0000000000000001 
Me Equ %°00000000000000 10 
M3 Equ *0000000000000 1 00 
M4 Equ %0000000000001 000 
M5 Equ 200000000000 10000 
M6 Equ 000000000011 00000 
M7 Equ %000000000 1000000 
M8 Equ ‘0000000010000000 
Me Equ ‘0000000 100000000 
M10 Equ ‘0000001 000000000 
Mii Equ ‘00000 10000000000 
Mi2 Equ 00001 00000000000 
TouM Equ %0000111111111111 


; Pour indiquer les longueurs autorisées : 
; A_B = Adressage d'octets, A_W = 
; adressage de mots. 


AB Equ %0001000000000000 
AW Equ ‘%0010000000000000 
AL Equ ‘%0100000000000000 
ABWL  Equ ‘%0111000000000000 


; Pour l'effet des instruction sur le registre 
; d'état : BXp = Bit X positionné, BNi = Bit N 


; indéfini, BZna = Bit Z non affecté. 

BXp Equ ‘%0000000000000000 
BXi Equ %0000000000000001 
BXna Equ ‘%00000000000000 10 
BX0 Equ %0000000000000011 
Bx1 Equ ‘0000000000000 1 00 
BNp Equ ‘%0000000000000000 
BNI Equ ‘%000000000000 1000 
BNna Equ ‘*%00000000000 10000 
BNO Equ ‘000000000001 1000 
BN1 Equ 000000000011 00000 
BZp Equ 

8Z Equ ‘4000000000 1000000 
BZna Equ ‘0000000011 0000000 





B20 Equ ‘#000000001 1000000 
821 Equ 0000000 1 00000000 
BVp Equ ‘L0000000000000000 
Bi Equ 0000001 000000000 
BVna Equ ‘00000 10000000000 
Bvo Equ 00000 1 1000000000 
Bvi Equ 00001 00000000000 
BCp Equ ‘%0000000000000000 
BCi Equ ‘000 1000000000000 
BCna Equ ‘%0010000000000000 
BCo Equ ‘%001 1000000000000 
BC1 Equ ‘%0100000000000000 


; Equivalences pour indiquer le numéro des 
; messages des cas particuliers. 


Msgi Equ 00100000 

Msg2 Equ ‘%01000000 

Msg3 Equ #01100000 

Msg4 Equ  %10000000 

Msg5 Equ ‘%10100000 

; Touches. 

Ent Equ 3 ; Entrée 

Bs Equ 8 ; Back Space 
Tab Equ 9 ; Tabulation 
CR Equ 13 ; Ret. chariot 
FIG Equ 28 : Flèche <- 
F0 Equ 29 ; Flèche -> 
FH Equ 30 : Flèche Haut 
FIB Equ 31 ; Flèche Bas 
Ann Equ 27 ; Annulation 
Oui Equ $100 


; Décalages par rapport à la base du tampon 
;: de mémoire créé par l'accessoire. 


HandlesCil Equ WindowSize 
MnemoCourant Equ HandlesCt#+12 
Biti5 Equ MnemoCourant+2 


BitMaplcone Equ Bit15+2 
DrapeauCurs Equ BitMapicone+14 
NumeroSyntaxe Equ DrapsauCurs+1 
HandleCti Equ NumeroSyntaxe+1 
Position Equ HandieCti+4 
IndMessages  Equ Position+4 
BoutonCourant Equ IndMessages+3 
IndSources Equ BoutonCourant+1 
IndDestinations Equ IndSources+12 
IndCCR Equ IndDestinations+12 
IndLongueur Equ IndCCR+6 
DrapeauCCR Equ IndLongueur+3 
CodeCCRA Equ DrapeauCCR+1 
NbreOctets Equ CodeCCR+2 


Debut 
Dec $400 
De 0 
Dec $14A 
De 0 
Dec Ouvre-Debut 
Dec Etat-Debut 
Dc Action-Debut 
Dec Etat-Debut 
Dec Ferme-Debut 
Tire 
DC.B 7,68000"s' 
Ouvre 
Movem.L D3-D7/A1-A4,-(SP) 
Movea.L A1,A4 
Tst.L * dCtIWindow(A4) 
Bne Etat3 
Subq.L #4,SP 
Move.L  SP,-(SP) 
_GetPort 
Move.L  #NbreOctets,DO 
_NewPtr,clear 
Beq.S Possible 
Move #7,-(SP) 
_SysBoep 
Bra Etat2 
Possible 
Movea.L A0,A3 
Subq.L #4,SP 
Move.L  A3,-(SP) 
Pea CadreFenetre 
Pea Tire 
Move  #Oui,-(SP) 
Move #noGrowDocProc,-(SP) 
Moveq.L #-1,D0 
Move.L  DO,-(SP) 
Move #Oui,-(SP) 
CirL (SP) 
_NewWindow 
_SetPort 
Move.L  A3,dCtIWindow(A4) 
Move.L  DctiRefNum(A4).f 
WindowKind{A3) 
Bsr Boutons 


Lea IndMessages(A3),A0 
Moveq  #18,D0 
@1 Cr (A0}+ 
Dbra D0,@1 
Move #$8000,Bit15(A3) 
Move #41, MnemoCourant(A3) 
Bsr Traitement 
Pea RectSyntaxes1 
_ValidRect 
Pea RectSyntaxes2 
_ValidRect 
Etat2 
_SetPort 
Etat3 
Movem.L (SP)+,D3-D7/A1-A4 
Etat 
Moveq  #0,D0 
Rts 
Ferme 


Movem.L A3-A4,-(SP) 
Movea.L A1,A4 

Move.L  dCtiWindow(A4),-(SP} 
_DisposWindow 

ClrL dCtiWindow(A4) 
Movea.L A4,A1 

Movem.L (SP)+,A3-A4 


Bra Etat 

Action 
Movem.L D3-D7/A1-A4,-(SP) 
Moveal A1,A4 
Movea.L A0,A2 
Movea.L dCtiWindow(A4},A3 
Move.L  A3,-(SP) 
_SetPort 
Move CSCode(A2),D0 
Cmpi #accÆE vent,DO 
Beq.S Evenement 
Cmpi #accCursor, DO 
Beq Curseur 
Bra Etat3 

Evenement 
Movea.L CSParam(A2),A2 
Move EvtNum(A2)},D0 
Cmpi #mButDwnEvt,D0 
Beq.S Contenu 
Cmpi #keyDwnEvt,DO 


Beq Touche 


Cmp #autoKeyEvt,DO 
Beq Touche 

Cmpl #updatEvt,DO 
Beq MiseJour 

Cmpl #activateEvt,DO 
Beq Active 

Bra Etat3 


; Cherche l'emplacement où a eu lieu le ‘clic’ 


Contenu 
Pea EvtMouse(A2) 
_GlobalToLocal 


Cr (SP) 
Move.L  evtMouse(A2),-(SP) 
Pea RectMnemo 
_PtinRect 
Tst (SP}+ 
Beq.S @2 
Move MnemoCourant(A3),DO 
Bsr ZoneMnemo 
Cmp MnemoCourant(A3),DO 
Beq.S  @1 
Bsr Traitement 
Bra.S @1 

@2 Move.B  BoutonCourant(A3),D6 
Bmi.S @1 
Ctr-(SP) 
Move.L  EvtMouse(A2),-(SP) 
Move.L A3,-(SP) 
Pea HandleCti(A3) 
_FindControl 
Tst (SP 
Beq.S @1 
Cr SP) 
Move.L HandieCti(A3),-(SP) 
Move.L  EviMouse(A2),-(SP) 
ChrL SP) 
_YrackControl 
Tst (SP}+ 
Beq.S  @1 
Subq #4,SP 
Move.L HandleCti{A3),-(SP) 
_GetCRefCon 
Move D6,D5 
Andi.B  #$30,D5 
Ext D5 
Lsr #4,05 
Andi #$0003,D6 
Move.L  (SP)+,D7 


Cmp D6,07 
Beq.S @1 g 
Bsr Chang C7 FE 


eSyntaxe 


@1 Bra Etat3 


; En cas d'action sur une touche? 


Touche 
Move.B  evtMessage+3(A2),D7 
Move MnemoCourant(A3),D6 
Cmpi.B  #CR,D7 
Bne.S @1 
Btst #shiftKey,evtMeta(A2) 
Beq.S Bas 
Bra.S Haut 
@1 Cmpi.B  #BS,D7 
Beq.S Gauche 
Cmpi.B  #Tab,D7 
Beq.S Droite 
Cmpi.B  #Ent,D7 
Beq.S TrBoutons 
Sub.B #27,07 
Beq.S TrBoc.ons 
Subq.B  #1,D7 
Beq.S Gauche 
Subq.B  #1,07 
Beq.S Droite 
Subq.B  #1,D7 
Beq.S Haut 
Subq.B  #1,D7 
Beq.S Bas 
Bra Etat3 
Bas  ; Flèche bas ou Retour chariot 
Addq #4,D6 
Cmpi #83,D6 
Ble.S SelectionTouche 
Sub #84,D6 
Bra.S SelectionTouche 
Haut _ ; Flèche haut ou Shit/Ret. chariot 
Subq #4,D6 
Tst D6 
Bge.S Selection Touche 
Add #84,D6 
Bras Selection Touche 
Gauche  ; Flèche <- ou Back Space 
Subq #1,D6 
Move D6,07 
Andi #3,07 
Cmpi #3,07 
Bne.S SelectionTouche 
Addq #4,D6 
Bra.S Selection Touche 
Droite ; Flèche -> ou Tabulation 
Addq #1,D6 
Move D6,07 
Andi #3,07 
Bne.Ss SelectionTouche 
Subq #4,06 
Selection Touche 
Move MnemoCourant(A3),-(SP) 
Move Bh15(A3),D7 
Or D7,(SP) 
Bsr SelectionMnemo 
Move D6,MnemoCourant(A3) 
Move D6,-(SP) 
Or D7,(SP) 
Bsr SelectionMnemo 
Bsr Traitement 
Bra Etat3 
TrBoutons ; Entrée ou ‘Annulation' 
Move.B  BoutonCourant(A3),D7 
Bmi.S @1 
Move 07,05 
Andi.B  #$30,D5 
Ext Ds 
Lsr #4,05 
Andi #50003,07 
Addq #1,07 
Cp D5,D7 
Ble.S @2 
Moveq  #0,D7 
@2 Bsr ChangeSyntaxe 
@1 Bra Etat3 
; Routine de mise à jour. Appelle tous les 
; Sous-programmes d'affichage. 
MiseJour 
Ctr Bh15(A3) 
Move.L  A3,-(SP) 
MoveL  (SP),-(SP) 


_BeginUpdate 
_DrawControlis 


Move  MnemoCourant(A3),-(SP) 
Bsr SelectionMnemo 

Bsr AfticheSelec 

Bsr AfficheCCR 

Bsr Tableaux 
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= 
el 


Bsr7Ÿ  Aftichelcone 
Ber Syntaxelnstruction 
Ber AfficheMessage 
Move.L A3,-(SP) 
_EndUpdate 
Move #$8000,Bk15(A3) 
Bra Etat3 
; Fenêtre active au inactive. 
Active 
Btst #activeF lag,evtMBut(A2) 
Beq.S  @1 
_InltCursor 
Cir.B DrapeauCurs(A3) 
@1i Bra Etat3 


; Pour le changement de la forme du curseur 
; en fonction de sa position. 


Curseur 

Bufter Set 4 
Link A6,#Buffer 
Pea Butfer(A6) 
_GetMouse 
Move.L Buffer(AS),D4 
Move.B  DrapeauCurs(A3),D6 
Moveq  #0,D7 
Cir SP) 
Move.L  D4,-(SP) 
Pea portRect(A3) 
_PtinRect 
Tst (SP}+ 
Bne.S  @1 
Tst.B D6 
Beq.S @2 
Movea.L (A5),A0 
Pea arrow(A0) 
Bra.S @3 

@1 Moveq  #1,D7 
Ck SP) 
MoveL  D4,-SP) 
Pea RectMnemo 
_PtinRect 
Tst (SP}+ 
Beq.S  @4 

@6 Cmp.B D7,D6 
Beq.S @2 
Pea Curseur1 
Bras @3 

@4 Lea HandlesCti(A3),A4 
Moveq  #8,D5 

@7 MoveL  O(A4,D5),A0 
Move.L  (A0),A0 
Tst contriVis(A0) 
Beq.S  @5 
Cr SP) 
MoveL  D4,-(SP) 
Pea contriRect(AO) 
_PtinRect 
Tst (SP)+ 
Bne.S  @6 

@5 Subq #4,D5 
Bge.S  @7 
Moveq  #2,07 
Cmp.B  D7,D6 
Beq.S 
Pea Curseur2 

@3 _SetCursor 
Move.B  D7,DrapsauCurs(A3) 

@2 Unk A6 
Bra Etat3 

: Affichage des tableaux. 

Tableaux 
Moveq  #21,D4 
Moveq  #1,D5 
Moveq  #2,D6 
Move #162,07 

@1 Move D6,-(SP) 
Move D5,-(SP) 
Move D7,-{SP) 
Bsr LigneHorizontale 
Addi #12,D5 
Dbra D4,@1 
Moveq  #4,D4 
Moveq  #1,D5 
Move #253,07 

@2 Move D6,-(SP) 
Move D5,-(SP) 
Move D7,-{SP) 
Bsr Ligne Verticale 
Addi #40,D6 
Dbra D4,@2 
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Moveq  #0,D3 
Bsr Tableau 
Moveq  #57,D3 
Bsr Tableaux2 
Lea Modes,A4 
St SP) 
Move #173,-(SP) 
Move #14,-SP) 
Pea (A4) 
Bsr AfficheChaine 
St SP) 
Move #2%,-(SP) 
Move #14,-(SP) 
Pea 7(A4) 
Bsr AfficheChaine 
Bsr Tableaux3 
: Bits d'état 
Lea Bits,A4 
Moveq  #4,D4 
Move #176,07 
@3 Move D7,-(SP) 
Move #236,-(SP) 
_MoveTo 
Move.B  (A4)+,D0 
Ext DO 
Move Do,-(SP) 
_DrawChar 
Add #22,07 
Dbra D4,@3 
; Affichage des codes mnémoniques. 
Bsr PoliceMonaco 
Moveq  #0,D7 
Moveq  #20,D5 
Moveq  #11,D4 
@4 Moveg  #5,D3 
Moveqg  #3,D6 
@5 Bsr.sS AdresseMnemo 
Move.B  (A4),-(SP) 
BgtS  @6 
Andi.B  #$7F,(A4) 
Addi.B  #2,(A4) 
@6 Move D7,D0 
Lsr #1,D0 
Cmp MnemoCourant(A3),DO 
Seq (SP) 
Move D3,-(SP) 
Move D4,-(SP) 
MoveL A4,-(SP) 
Bsr AfficheChaine 
Move.B  (SP}+,(A4) 
Addq #2,07 
Add #40,03 
Dbra D6,@5 
Add #12,D4 
Dbra D5,@4 
Bra Suite Tableau 
; Pour obtenir l'adresse de base des 
: informations sur l'instruction numéro N. 
AdresseMnemo 
Move TableMnemo{D7),D0 
Lea TabteMnemo(DO),A4 
Rts 
TableMnemo 


CRRÉEREREEEREESÉÉESÉSÉESSSÉLÉSSÉÉÉÉÉ. 


SuiteTableau 





CÉREEEERERESRÉERÉSÉESÉEÉRÉSESÉÉÉÉEÉSELEÉÉELÉEELSÉELTISLTEÉT: 


xlN-TableMnemo 
xJmp-TableMnemo 
xJsr-TableMnemo 
xLea-TableMnemo 
xLink-TableMnemo 
xLstTableMnemo 
xLsr-TableMnemo 
xMove-TableMnemo 
xMovC-TableMnemo 
xMovea-TableMnemo 
xMovU-TablesMnemo 
xMoviS-TableMnemo 
xMovtS-TableMnemo 
xMovem-TableMnemo 
xMovep-TableMne mo 
xMoveg-TableMnemo 
xMuls-TableMnemo 
xMulu-TableMnemo 
xNbcd-TableMnemo 
xNeg-TableMnemo 
xNegx-TableMnemo 
xNop-TableMnemo 
xNot-TableMnemo 
xOr-TableMnemo 
xOri-TableMnemo 
xOriC-TableMnemo 
xOriS-TableMnemo 
xPea-TableMnemo 
xReset-TableMnemo 
xRol-TableMnemo 
xRor-TableMnemo 
xRoxi-TableMnemo 
xRoxr-TableMnemo 
xRte-TableMnemo 
xRtr-TableMnemo 
xRts-TableMnemo 
xSbod-TableMnemo 
xScc-TableMnemo 
xStop-TableMnemo 
xSub-TableMnemo 
xSuba-TableMnemo 
xSubtTableMnemo 
xSubgq-TableMnemo 
xSubx-TableMnemo 
xSwap-TableMnemo 
xTas-TableMnemo 
xTrep-TableMnemo 
xTrepv-TableMnemo 
xTst-TableMnemo 
xUnk-TableMnemo 


IndLongueur(A3),A2 
O(A2,D3).-(SP) 
D7,-(SP) 

D6,-(SP) 

O(A4,D5) 
AfficheChaine 
#1,D3 

#3,05 

#14,D6 

D4,@8 


MoveL A4,-(SP) 
_FrameRect 
_PenNormal 
; Affichage des modes d'adressage. 
Bsr PolicsChicago 
Lea Modes,A4 
Lea IndSources,A2 
Move #170,D6 
Moveq #32,07 
Moveq #11,05 
Moveg  #0,D4 
Moveq  #0,D2 
@2 Tst D3 
Bne.S @3 
Move.B  O(A2,D2),-(SP) 
Bras 
@3 Move.B  12(A2,D2),-(SP) 
@4 Move D6,-(SP) 
Add D3,(SP) 
Move D7,-(SP) 
Pea 13(A4,D4) 
Bsr AfficheChaine 
Move.B  13(A4,D4),D0 
Ext Do 
Addq #1,D0 
Add D0,D4 
Add #16,07 
Dbra D5,@2 
Ris 
Tableaux3 





Bsr LigneHorizontale 


Addi #16,07 

Dbra D4,@1 

Subi #16,07 
Moveq  #19,D4 

Move D5,-(SP) 

Add D3,(SP) 

Move D4,-(SP) 
Move D7,-(SP) 

Bsr Ligne Verticale 
Move D6,-(SP) 

Add D3,(SP) 

Move D4,-(SP) 
Move D7,-{SP) 

Bsr Ligne Verticale 


Move #1,(A4) 

Move D5,left(A4) 
Move #18,botiom(A4) 
Addq #1,D6 

Move D6,right(A4) 


Add D3,left(A4) 
Add D3,right(A4) 


Move.L #$00020002,-(SP) 
_PenSize 
Lea TempRect,A4 


Move #223,(A4) 
Move #168,left(A4) 
Move #240,bottom(A4) 
Move #279,righ(A4) 
Move.L  A4,-(SP) 
_FrameRect 
Moveq  #3,D0 
Move.L DO0,-SP) 
_PenSize 
Moveq  #3,D4 
Move #189,07 

@1 Move D7,-{SP) 
Move #225,-(SP) 
Move #238,-(SP) 
Ber Ligne Verticale 
Add #22,07 
Dbra D4,@1 
_PenNormal 
Move  #241,(A4) 
Move #168,left(A4) 
Move #254,bottom(A4) 
Move #279,right(A4) 
Move.L  A4,-(SP) 
_FrameRect 
Moveq  #3,D4 
Move #190,07 

@2 Move D7,-(SP) 
Move #242,-(SP) 
Move #252,-(SP) 
Bsr Ligne Verticale 
Add #22,07 
Dbra D4,@2 
Ris 

Affichelcone 
Move.L A4,-(SP) 
Lea BhMaplcone{(A3),A4 
Move  #4,4(A4) 
Chr.L G(A4) 
Move.L  #$00200020,10(A4) 


Pom's n° 26 








Se 
Lea Icone, A2 ee _ 
Move.L A2,(A4) == 
e.L A4,-(SP) RADDA SN 
Mov L AM Mulu #14,D0 
pates #2,44 ADDQ Add D1,D0 2) 
ÉE A4-(SP) FRA D0,Tampon+top{A6) 
sg É BiMaplcone+6(A3) DI> ECLR Move D1,Tampon+left(A6) 
Bec _| d #19,01 
œ Fm BSET BTST cf D1,Tampon+right(A6) 
#11,D0 
Gt 5 CHPA on Deco 
Cou 7" Manlooie{AIL Al CHPM DIVS DR ES 
A(A4] [EUR . [EOR I >C| Bne.S 1 
. A) : Move #PatCopy,-(SP) 
ve.L  #$0007006F,10(A4) BraS  @2 
ee ‘| Poms,A2 LINK @1 Move  #PatXor,-(SP) 
Move.L  A2,(A4) MOUE>C @2 _PenMode 
Move.L … A4;(SP) = “par 
Movea.L A3,44 MOVE -UJMOUE <S]MOUE > ULU Pie 
Norma 
AddqL #24 MOUEP [MOUEQ [MULS [MULU | ee 
Pen Btapiconss8{A) Eco [nec Înecx Unie Me 
a 
SP),2(SP) 
Pea RectDestPoms INOT__ [OR __JORI | Move  ( 
; 2,5P 
ce 46) ons [Pen —{neser [aus AMG #2. 
cpylts | FOXL _JROXR A 
g Coprs U PAM : Routine pour visualiser l'effet d'une 
rl RTR | : instruction sur le registre d'état. II faut, 
Rts VAvanE l'appel de la routine, emplier un . 
Bauer 7 |eueg jsuex joue Îins | 28 ina, ua os 
: numéro du bit (0 pour X, 1 pour A... 
Fe 40,07 TrAP_ [TRaPu [TST [UK | Erumér dub (0 peur X our N 
Moveq  #2,D6 : positionné, 1 pour indéfini…). 
Lea TempRect,A4 lonsBits 
| Move #256,(A4) OROL #<donnée>,Dy DR de. de 
left(A4, t 8 
Move #26 bctom(Mt) © ROL <AE> om © 
Move  #14,right(A4) d'adressage valides. Le Indefini Set 1 
QU EsrS, "'Boncnes Movem.L_ DO-D1,-(SP) . rod à doit être empilé (de © à Toujours0 Set 3 
DEN (UE Move Parametre(A6),D0 À 41) avec on plus le 15 à 0 pour une miss Toujpursi Set _ 4 
Add péen. Bar #Bitinvert,DO x Ha sg 1 pour le traitement normal ; ainsi Link A6,#Tampon 
Add ne pale SNE Drinvert(A6) : ste ne os doit être à 1 s'il s'agit de Movem.L is 
Dbra 0 ï Fo Pol 
ts Move Lg : l'opérande destination. “A ve.B  ParamNumero(A6),D7 | 
Boutons2 as #2,D0 SelectionMode É Ext D7 
CR. Mulu  #12,D0 Drinvert re Muu  #22,07 | 
Move.L  A3,-(SP) #3,00 BitDestination Set Add #170,D7 
MS. MR” mn DéTérpcnne Bhinwen Set 15 Move D7,Tampon+left{A6) 
Pea PasTire ' Param ge Add #19,07 
d #9,D0 410 A6 
CirL SP) 20 tom (A6) Tampon Set D7,Tampon+right(A6) 
Se D Link A6;#Tampon Move 8243. Temponstop( A) 
Move  #1,(SP) . #4 D MoveL  DO,-(SP) ce Move #252,Tampon+bottom{A6) 
Move phase Move D, Tamponsleft(Aë) as Mrs PonNormal n 
Move.L 1 Bar d = L (A5), 
NewControl Add #37,01 ight(A6) SNE Drinvert(A6) ans ER odfor AlEEE 
L HandlesCti(A3),A2 Move” DiTempoñsrig En DO Move. 
mr D7,D0 Tst.B Drinvert(A6) ep À 71600 Ext L FA 
ve * , Bne. 
Bne.s  @1 #21,D0 
Le Ë SPoUR2.00) Move  #PatCopy,-(SP) sh DO, Tampon+top{A6) Fe, an 
a @1 Move PatXor:(5P) Move D0-Tamporsbotiom{A6) @1 Cm indefini,D7 
| Move Dee Bne.s  @3 
C is’ retourne 2 _PenMode #170.T naleft(A6) 
rer pee sg d bi Pea Tampons) Frans #220,Tampon+right(A6) de a 
Arras ‘cliquée', ou $FFXX si le ‘clic’ a nel Btst #BitDestination,Param(A6) _” White(AO) 
; ; Norma 
nr disbtnunleitel Moule. (8P+00-01 mi. me @2 _PenPat M 
meroMnemoSouris A6 ove C A6 Pea Tamponi 
Paranes ou. 12 Move (SP),2(SP) pes Éniriontenzt À _PaintRect ni 
ne 489) Lt an) @3 TstB  Drinvert(A6) OnLs de ds 
Ck di Rte a @1 mi. 
L evMouse(A2),-(SP) Bne.S Move D7,D6 
Pen Roctimemo ; Routine utilisée en cas d'actions dans la sr pis Move Tampon+botiom(AG),D7 
; ra. 7 
SEnR e n” pe ; zone des instructions. @1 Move #PatXor,-(SP) rat “RARES 
s ZoneMnemo de 
Les S _ D 257 ia ss pa Tampon(A6) pro L D7-(8P) 
: L ; \ 1 ‘ 
es evtMouse+v(A2),D0 @2 reg. NumeroMnemoSouris l _Moveto LS 
a. D Lau _— Move.  (SP}+,D0 ps He ca 
Ext. iS É À 
Divu #12,D0 @1 es MnemoCourant(A3),DO re L 1e) 2(SP) Move (SP) 
Lsl #2,D0 S  @3 e Bra.S : 
Move oviMousesh{A2}DI More MnemoCourantA 3} (5F) Add #2.5P 95 Men #16 
#2,D1 #15(A3),D1 @6 _Dra 
ent Di le ÿ M SP) I de @4 Movem.L (SP)+,D6-D7 | 
Divu #40,D1 Ber SelectionMnemo : Fonctionnement identique à os Lx _PenNormal 
Add D1,D0 Move D0,MnemoCourant(A3) ; ‘selectionMnemo', mais cette fois po Ünik AG | 
Move  DO,Parametre(SP) Move  D0,(SP) ; sélection des longueurs valides (octet, Move.L  (SP),2(SP) 
@1 MovemL (SP)+,D0-Di or D1,(SP) ; mot et long mot). AddgL #2,5P 
i Ft Bsr SelectionMnemo SoRnLaes RE" Ats 
alcau: re etr diernie e RE  - Fri Set 15 ; Routine d'affichage des bons ANS 
; inverse l'instructio: ï sec = Set 8 ÿ Il faut empiler, dans l'ordre, 
, & lé SP})+ Parametre caractères. 
; numéro de l'instruction doit être : Tst ( Set 10 ; in tichaue normal ét à 
; Tampon ; drapeau à 0 pour 
; avec en plus le bit 15 à O pour une mise BoqS  @4 u ’ e en inverse, la 
; jour, à 1 pour le traitement normal. Pea evtMouse(A2) Link A6 #Tampon iSFF pour un afflchag Ne (A) et ladiesse 
era bare GetMouse Movem.L DO-D1,-{SP) ; poskion dans la fené Y 
SelectionMnemo à Bras @2 Move Parametre(A6),D0 ; de la chaîne à afficher. 
Drinvert ss de @4 Movem.L (SP)+,D0-Di Bcir #Bitinver,DO AflicheChaine 
Biinvert 8 Rts SNE Drinvert(A6) AdresseChaine Set. 8 
Parametre Set ; À Fit #258,01 
Tampon Set __-10 : La routine ‘SelectionMode' met en inverse 
Link A6 #Tampon d 





49 
Pom's n° 26 








‘a | = | 
CRE 
D 
Coordonnees Set 12 
Drapeau Set 16 
Link A6,40 


Movem.L A2/D2,-(SP) 
Tst Drapeau(A6) 


@1 | 
#SreXOr,-(SP) 
Bra.S @2 
@1 Move #SroOr,-(SP) 
@2 _TexiMode 
Move.L Coordonnees(A6),-(SP) 
_MoveTo 
Move.L AdresseChaine(A6),-(SP) 
_DrawString 
Movem.L (SP)+,A2/D2 
Unlk A6 
Move.L  (SP),10(SP) 
Add #10,SP 
Ris 


; Routine pour tracé de lignes horizontales 
; OÙ verticales 


LigneHorizontale 
Tampon Set -2 
X_1 Set 12 
Y_o Set 10 
X_2 Set 8 
Link A8 Tampon 
sf Tampon(A8) 
Bra.S Lignes 
LigneVerticale 
X_0 Set 12 
: Æ | Set 10 
à 24 | Set 8 
Link A6,#Tampon 
ST Tampon(AS) 
Lignes 
Move.L  Y_O(A6).-(SP) 
_MoveTo 
Tst.B Tampon(A8) 
Beq.S  @1 
Move X_O(A6),-(SP) 
Move Y_2(A6),-(SP) 
Bra.S @2 
@1 Move X_2(A6),-(SP) 
Move Y_O(A6),-(SP) 
@2 _LineTo 
Unk A6 
Move.L (SP),6(SP) 
Addq #6,SP 
Rts 


; Traitement consécutif à un changement de 
; code mnémonique. 


Traitement 
Bsr.s Syntaxelnstruction 
Bsr ContigBoutons 
Pea ReatCorntroles 
_ValldRect 
Ch.B NumeroSyntaxe(A3) 
Bsr.S AfticheMessage 
Ck D6 
ST DrapeauCCR(A3) 
Bsr Indications 

@1 Rts 


; Affichage des messages pour les cas 
; particullers. 


AlficheMessage 
Btst #5,BoutonCourant(A3) 
BnesS  @2 
Pea RectSyntaxes2 
_EraseRect 

@2 Lea IndMessages(A3),A4 


Move.B  NumeroSyntaxe(A3),D7 
Ext 07 
Move.B  0(A4,D7),D6 


Beq.S @1 
Move #geneva,-(SP) 
_TextFont 
Move #9,-(SP) 
_TextSize 
Move.L  #$01270012,-(SP) 
_MoveTo 
Subq.B  #1,D6 
Bne.S  @3 
Pea Mgi 
Bras 
@3 Subq.B  #1,D6 
BnesS  @5 
Pea Ma 
Bra.S @4 


@5 Subq.B  #1,D6 
Bne.S  @6 
Pea Mg3 
Bra.S @4 

@6 Subq.B  #1,D6 
Bne.S  @7 
Pea Mg4 
Bras @4 


@7 Pea Mg5 
@4 _DrawString 
@1 Ris 


; Affichage des syntaxes. 
Syntaxelnstruction 


Move MnemoCourant(A3),07 
Add D7,07 
Bsr AdresseMnemo 
Moveq  #0,D4 
Move.B  (A4),D7 
Btst #7,07 
Beq.S @1 
Moveqg  #2,D4 
And #$7F,D7 
Addq #2,D7 

@1 Move.B  1(A4,D7),D6 
Ext D6 
Move D6,-(SP) 
Move.B  (A4),-(SP) 
Move.L  A4,-(SP) 
Sub D4,07 
Move.B  D7,(A4) 
Bsr PoliceChicago 
Move #PatOr,-(SP) 
_TextMode 
Move #266,D5 
Move.L  A4,D3 
Add D4,07 
Lea 2(A4,D7),A4 
Lea IndMessages(A3),A2 
Moveq  #0,D7 
Pea RectSyntaxes1 
_EraseRect 
Pea RectSyntaxes2 
_EraseRect 

@2 Move #18,-(SP) 
Move D5,-(SP) 
_MoveTo 
Move.L  D3,-(SP) 
_DrawString 
Move.B  O(A4,D7),D4 
Move.B  D4,00 
Andi.B  #$£0,D0 
Ler.B #5,00 
Move.B  DO0,6(A2,07) 
Andi #$1F,D4 

@4 Bsr AdresseSyntaxe 
Pea (A0) 
_DrawString 

@3 Add #15,05 
Addq #1,07 
Dbra D6,@2 
Move.L  (SP)+,44 
Move.B  (SP)+,(A4) 
Move (SP}+,06 

@6 Rts 


: Pour trouver l'adresse de base des 
; Informations sur chaque instruction. 


AdresseSyntaxe 
Add D4,D4 
Move TableSynt(D4),D4 


Lea TableSynt(D4),A0 


Dc Sy0-TableSynt 
Dec Sy1-TableSynt 
De Sy2-TableSynt 
Dec Sy3-TableSynt 
Dc Sy4-TableSynt 
SyS-TableSynt 
Sy6-TableSynt 
Sy7-TableSynt 
Sy8-TableSynt 
Sy9-TableSynt 
Sy10-TableSynt 
Sy11-TableSynt 
Sy12-TableSynt 
Sy13TableSyn 
Sy14-TableSynt 
Sy15-TableSynt 
Sy16-TableSynt 
Sy17-TableSynt 
Sy18-TableSynt 
Sy19-TableSynt 
Sy20-TableSynt 
Sy21-TableSynt 
Sy22-TableSynt 
Sy23-TableSynt 
Sy24-TableSynt 
Sy25-TableSynt 


CÉÉÉRÉEESLESÉSLSISÉÉÉ: 


De Sy26-TableSynt 
Dec Sy27-TableSynt 
Dec Sy28-TableSynt 
De Sy29-TableSynt 
De Sy30-TableSynt 
Dec Sy31-TableSynt 
; Police Chicago 12 points. 
PoliceChicago 
Cr -(SP) 
_TextFont 
Move #12,-(SP) 
_TextSize 
Rts 
; Police monaco 9 points. 
PoliceMonaco 
Move #monaco,-(SP) 
_TextFont 
Move #9,-(SP) 
_TextSize 
Rts 
; Configurations des boutons après chaque 
; Changement de code mnémonique. 
ConfigBoutons 
Tst D6 
BnesS  @1 
Move.B  #$80,BoutonCourant(A3) 
Lea HandiesCti(A3),A4 
Moveq #2,07 
Moveq  #0,D5 
@2 Move.L  O(A4,D5),-(SP) 
_HideControl 
Addq #4,05 
Dbra D7,@2 
Rts 
@1 Bsrs Bouton1 
Lea HandiesCtI(A3),A4 
Moveq  #4,D7 
Bsr.S Bouton23 
Subq #1,D6 
Bne.S  @3 
Move.B  #$10,BoutonCourant(A3) 
Move.L  HandiesCti+8(A3),-(SP) 
_HideControl 
Rts 
@3 Move.B  #$20,BoutonCourant(A3) 
Moveq  #8,D7 
Ber.S Bouton23 
Rts 
Bouton23 
Subq #2,5P 
Move.L  0(A4,D7),-(SP) 
_GetCtiValue 
Tst (SP)+ 
Beq.S @1 
Move.L  O(A4,D7),-(SP) 
Ct (SP) 
_SetCtiValue 
@1 Move.L  O(A4,D7),-(SP) 
_8ShowControl 
Ris 
Bouton 
Subq #2,5P 


Move.L  HandlesCti(A3),-(SP) 
_GetCtiValue 


Tst (SP}+ 
Bne.S @1 
Move.L  HandiesCti(A3),-(SP) 
Move #1,-(SP) 
_SetCtiValue 

@1 MoveL  HandlesCti(A3),-(SP) 
_ShowControl 
Rts 


; Affichages des indications : modes 
; d'adressage autorisés, registre d'état et 
; longueurs permises. 


Indications 
Move MnemoCourant(A3),D7 
Add D7,07 
Bsr AdresseMnemo 
Move.B  (A4),D7 
Btst #7,07 
Beq.S  @1 
Andi.B  #$7F,D7 
Addq #2,07 
@1 Addq #1,07 
Ext 07 
Add.B  O(A4,D7),D7 
Addq #4,07 
Lea 0(A4,D7),A4 
Move AM4,D0 
Btst #0,D0 
Beq.S @2 
Addq.L  #1,A4 
@2 Move  -2(A4).CodeCCRA(A3) 
Lsl #2,06 
Move.L O(A4,D6),D7 


_— PR nt | 


@3 Addq 


@1 





IndDestinations(A3),A4 
#$4000,D5 


IndLongueur(A3),A4 
#12,D0 

D0,D7 

IndiqueLong 
sn 


D5,-(SP) 
PositionsBits 
#3,07 

#1,D6 

#5,D6 


#0,D6 
D6,D7 

@2 
0(A4,D6) 
@3 
O(A4,D6) 
D6,-(SP) 
Bi15(A3),D0 
Do,(SP) 
D5,(SP) 
SelectionMode 


@3 
0(A4,D6) 
@3 
O(A4,D6) 
@4 
#1,D6 


#12,D6 
@1 


IndSources(A3),A4 
B15(A3),D5 
#0,D6 


@1 
IndLongueur(A3),A4 
#0,06 

O(A4,D6) 

@s5 

D6,-(SP) 

D5,(SP) 


SelectionLong 
#1,D6 
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Cmpi #3,D6 
Bne.S @4 
Rts 
AfficheCCR 
Lea IndCCR(A3),A4 
Moveq  #0,D6 
@1 Move.B  0(A4,D6),D0 
Lsl #8,D0 
Or D6,D0 
Move Do,-(SP) 
Bsr PositionsBits 
Addq #1,D6 
Cmpi #5,D6 
Bne.S  @1 
Rts 


; Pour faire suite à un changement de 
; syntaxe (souris ou clavier). 


ChangeSyntaxe 
Tst D7 
Bne.S @1 


Move.L HandlesCti{A3),-(SP) 
Move #1,-(SP) 
_SetCtiValue 

Move.L  HandiesCti+4(A3),-(SP) 
Chr (SP) 

_SetCtlValue 

Cmpi #2,05 

Bne.S  @2 
HandiesCti+8(A3),-(SP) 


_SetCtiValue 
Bras @2 
@1t Cmpi #1,07 
Bne.S @3 
Move.L HandlesCti{A3),-(SP) 
Ck SP) 
_8etCtiValue 
Move.L HandlesCti+4{A3),-(SP) 
Move #1,-(SP) 
_SetCtiValue 
Cmpl #2,D5 
Bne.S  @2 
Move.L HandlesCti+8(A3),-(SP) 
Cr SP) 
_SetCtiValue 
Bra.S @2 
@3 Move.L  HandiesCti(A3),-(SP) 
Cir (SP) 
_8etCtiValue 
Move.L HandlesCti+4(A3),-(SP) 
Ctr -(SP) 
_SetCtiValue 
Move.L HandlesCti+8(A3),-(SP) 
Move #1,-(SP) 
_SetCtiValue 
DrapeauCCR(A3) 
D7,NumeroSyntaxe(A3) 
Move D7,06 
Bsr Indications 
#$F0,BoutonCourant(A3) 
NumeroSyntaxe (A3),D7 
Or.B D7,BoutonCourant(A3) 
Bsr AfficheMessage 


Source 
‘S68000/2.Asm' 


; Liste des syntaxes possibles. 

Syo Dc.B $01,'' 

Syt Dc.B 5$06, Dy,Dx 

Sy2 De.B $0C, -(Ay).-(Ax)' 

Sy3  Dc.B $08,' <AE>,Dn 

Sy4 Dc.B $08, Dn,<AE>' 

Sy5  Dc.B $08, <AE>,An 

Sy6  Dc.B $0F, #<donnée>,<AE>" 
Sy7  Dc.B $15, #<donnée 8 bits>,CCR' 
Sy8 Dc.B $15,' #<donnée 16 bits>,SR' 
Sy9 Dc.B $06, Dx,Dyÿ 

Sy10 Dc.B $0D,' #<donnée>,Dy 

Syii Dc.B $05, <AE>' 

Sy12 Dc.B $0C, <étiquette> 

Sy13 Dc.B $0C, (Ay)+,(Ax}+' 

Sy14 Dc.B $0F, Dn,<étiquette>" 
Sy15 Dc.B 506, AxRY 

Sy16 Dc.B 503, Dn' 


Syi7 Dc.B $1A, An,#<déplacement 16 J 


bits>' 
Sy18 Dc.B $0A; <AE>,<AE> 
Sy19 Dc.B $09, <AE>,CCR 
Sy20 Dc.B $07, USP,An' 
Sy21 Dc.B $07, An,USP' 
Sy22 Dc.B $08, SR,<AE> 
Sy23 Dc.B $08, <AE>,SR' 
Sy24 Dc.B S$1A, <liste de J 
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registres>,<AËE >" 
Sy25 De.B $1A, <AE>,<liste de | 
registres>" 
Sy26 Dc.B $09, Dx,d(Ay)' 
Sy27 Dc.B 509, d(Ay),Dx 
Sy28 Dc.B $0D,' #<donnée>,Dn' 
Sy29 Dec.B $12, #<donnée 16 bits>" 
Sy30 Dc.B $0B,' #<vecteur> 
Sy31 Dc.B $03; An 


; Pour affichage du tableau des modes 

; d'adressage. 

Modes Dc.B $06,'Source' 
Dc.B $05,'Dest. 
Dc.B $02,'Dn' 
Dc.B $02,'An' 
Dc.B $04,'(An)' 
Dc.B $05,'(An)+ 
Dc.B $05,'-(An)' 
Dc.B $05,'d{An) 
Dc.B $08,'d{An,X)' 
Dc.B $05,'Abs.W' 
Dc.B $05,'Abs.L' 
Dc.B $05,'d{PC)' 
Dc.B $08,'d(PC, XI)" 
Dc.B $03,'Imm' 


: Pour aflichages divers. 

Bits Dc.B ‘XNZVC' 

Long Dc.B DANS 
Zero Dc.B Li 

Un Dc.B g 

; Messages des cas particuliers. 


Mgi DcB 44,Si<AE>=An .W et L/J 
seulement, CCR inchangé." 

Mg DcB 35,Si Destination = Dn:L, l 
sinon .8.' 

Mg3 Dc.B 29,'Si Source = An :.B/J 
Interdit: 

Mg4 Dc.B 36,'Si Source = An: .Wet.L| 
seulement 

MgS DcB 43,Si donnée/adresse, Ry = | 
registre d'adresse. 

Align 2 


: Informations relatives aux instructions du 
; MC68000. Pour chaque instruction, on 
; trouve : 
; - un octet indiquant la longueur du code 
; mnémonique, avec le bit de signe (7) à 1 si 
; Il y a deux caractères de plus (comme pour 
; MOVE to SR, pour lequel le code est 
: MOVE, mais qui est représenté dans le 
; tableau par MOVE>S) ; 
; «les caractères du code ; 
; «un octet indiquant le nombre de 
; Syntaxe - 1 ; 
; + pour chaque syntaxe, un octet contenant 
; le numéro de syntaxe plus, si nécessaire, 
: le numéro du message lié à cette syntaxe ; 
; « si nécessaire, un octet à -1 servant 
; uniquement à aligner les Informations 
; suivantes sur des adresses paires ; 
;- un mot de 16 bits pour les informations 
; relatives aux bits d'état (3 bks * 5) ; 
;* pour chaque syntaxe, un mot de 16 bits 
; pour indiquer les modes d'adressage 
; autorisés pour l'opérande source ; 
;* pour chaque syntaxe, un mot de 16 bits 
; pour indiquer les modes d'adressage 
; autorisés pour l'opérande destination et 
; les longueurs valides (octet, mot et long 
; mot). 
xAbcd  Dec.B $04,'ABCD',1,1,2 
Dc BXp+BN+BZp+BVHBCp 
De MiM1+A8B 
Dec M5.M5+A B 
xAdd Dc.B $03,'ADD/,1,3+Msg4,4,-1 
De  BXp+BNp+BZp+BVp+BCp 
De TouMM1+A BWL 
De Mi,TouM-M1-M2-M10-M11/ 
-M12+A_BWL 
xAdda Dc.B $04,/ADDA',0,5,-1 
Dc  BXna+BNna+BZna+BVna+] 
BCna 
Dc  TouM,M2+A_ W4+A_L 
xAddi  Dc.B $04,'ADDr,0,6,-1 
Dc BXp+BNp+BZp+BVp+BCp 
Dc  M12,TouM-M2-M10-M11-f 
M12+A_BWL 
xAddq  Dc.B $04,/ADDO,0,6+Msgi,-1 
De  BXp+BNp+BZp+BVp+BCp 
Dc M12,TouM-M10-M11-M12+/ 
A_BWL 
xAddx Dc.B $04,'ADDX,1,1,2 
De  BXp+BNp+BZp+BVp+BCp 
Dec M1,M1+A BWL 
Dc M5,M5+A BWL 


xAndi 


xAndS 


xAsl 


xAsr 


xBoc 


xBchg 


xBcir 


xBra 


xBset 


xBsr 


xBtst 


xChk 


xClr 


xDivs 


xDivu 


Dc.B $03,'AND',1,3,4,-1 

De  BXna+BNp+BZp+BV0+BC0 

Dec  TouM-M2,M1+A BWL 

Dc Mi,TouM-M1-M2-M10-M11/ 
-M12+A_BWL 

Dc.B $04,'AND/',0,6,-1 

Dc  BXna+BNp+BZp+BV0+BC0 

Dc M12,TouM-M2-M10-M11-J 
M12+A_BWL 

Dc.B $84,'ANDI>C:,0,7,-1 

Do BXp+BNp+BZp+BVp+BCp 

Dec M12,PasM+A_B 

Dc.B $84,'ANDI>S",0,8,-1 

Dc  BXp+BNp+BZp+BVp+BCp 

Dec M12,PasM+A_W 

Dc.B $03,'ASL',2,9,10,11 

BXp+BNp+BZp+BVp+BCp 

Mi,M1+A_BWL 

M12,M1+A_BWL 

PasM,TouM-M1-M2-M10-J 

M11-M12+A W 

Dc.B $03,'ASR",2,9,10,11 

De BXp+BNp+BZp+BVp+BCp 

Dec M1,M1+4A BWL 

Do M12M1+A_BWL 

Dc  PasM,TouM-M1-M2-M10-J 
M11-M12+A W 

Dc.B $03,'Bcc',0,12 

Dec  BXna+BNna+BZna+BVna+/ 
BCna 

Dc PasM,PasM+A B+A W 

Dc.B $04,BCHG',1,4+Msg2,[ 
6+Msg2 

De  BXna+BNna+BZp+BVna+/ 
BCna 


De 
De 
De 
De 


De Mi1,TouM-M2-M10-M11-J 
M12+A_B+A L 

Dec M12,TouM-M2-M10-M11-J 
M12+A_B+A L 

Dc.B $04,BCLR',1,4+Msg2.[ 
6+Msg 

De BXna+BNna+BZp+BVna+/ 
BCna 

De M1,TouM-M2-M10-M11-J 
M12+A B+A L 

De M12,TouM-M2-M10-M11-J 
M12+A_B+A _L 


Dc.B $03,'BRA',0,12 

De  BXna+BNna+BZna+BVna+/ 
BCna 

Dc PasM,PasM+A B+A W 

Dc.B $04,'BSET',1,4+Msg2.J 
6+Msg2 

Dec  BXna+BNna+BZp+BVna+/ 
BCna 

De M1,TouM-M2-M10-M11-J 
M12+A_B+A_L 

De Mi2,TouM-M2-M10-M11-J 
M12+A_B+A _L 

Dc.B $03,BSR',0,12 

De BXna+BNna+BZna+BVna+] 
BCna 

Dec PasM,PasM+A B+A W 

De.B $04,'BTST,,1,4+Msg2,J 
6+Msg2 

De  BXna+BNna+BZp+BVna+f 
BCna 

De  M1,TouM-M2-M10-M11-J 
M12+A_B+A L 

De  M12,.TouM-M2-M10-M11-[ 
M12+A B+A L 

Dc.B $03,'CHK",0,3 

De  BXna+BNp+B7HBVH#BCI 

Dc  TouM-M2,M1+A_ W 

Dc:B $03,'CLR',0,11 

Dc  BXna+BN0+BZ1+BV0+BC0 

Do  PasM,TouM-M2-M10-Mi1[ 
-M12+A_BWL 

Dc.B $03,'CMP',0,3+Msg4 

De BXna+BNp+BZp+BVp+BCp 

De TouMM1+A BWL 

Dc.B $04,CMPA',0,5,-1 

De  BXna+BNp+BZp+BVp+BCp 

Dc  TouM.M2+A W+A_L 

Dc.B $04,CMPI,0,6,-1 

Do  BXna+BNp+BZp+BVp+BCp 

De M12,TouM-M2-M10-M11-J 
M12+A_BWL 

Dc.B $04,(CMPM',0,13,-1 

De  BXna+BNp+BZp+BVp+BCp 

Dc M4,M4+A BWL 

Dc.B $04,DBcc',0,14,-1 

Dc BXna+BNna+BZna+BVna+/ 
BCna 

Dc M1PasM+A W 

Dc.B $04,'DIVS",0,3,-1 S 

Dc  BXna+BNp+B7p+BVp+BC0 

Dc  TouM-M2,M1+A_W 

Dc.B $04,'DIVU",0,3,-1 


% 


[2 
<a 


Do BXna+BNp+BZp+BVp+BC0 
De TouM-M2,M1+A_W 


xEor Dc.B $03,'EOR',0,4 


De BXna+BNp+BZp+BV0+BC0 
De  M1,TouM-M2-M10-M11-[ 
M12+A_BWL 


xEori Dc.B $04,'EOR/',0,6,-1 


Dc  BXna+BNp+BZp+BV0+BC0 
Do M12,TouM-M2-M10-M11-J 
M12+A_BWL 
xEorC  Dc.B $84,'EORI>C",0,7,-1 
Dc BXp+BNp+BZp+BVp+BCp 
Dc M12,PasM+A B 
xEorS  Dec.B $84,'EORI>S",0,8,-1 
Do  BXp+BNp+BZp+BVp+BCp 
Doc M12,PasM+A_W 
xExg  Do.B $03,'EXG',0,15+Msgs 
De  BXna+BNna+BZna+BVna+| 
BCna 
De M1+M2,M1+M2+A_L 
xExt De.B $03,'EXT,0,16 
Do  BXna+BNp+BZp+BV0+BC0 
Dc PasMM1+A_ W+A_L 
xl Dc.B $05/,'ILLEG',0,0 
Dc  BXna+BNna+BZna+BVna+] 
BCna 
Dc PasM,PasM 
xJmp  Dc.B $03,JMP',0,11 
De  BXna+BNna+BZna+BVna+] 
BCna 
Dc  PasM,TouM-M1-M2-M4-J 
M5-M12 
xJer Dc.B $03,JSR",0,11 
De  BXna+BNna+BZna+BVna+] 
BCna 
De PasM,TouM-M1-M2-M4-f 
M5-M12 
xLea Dc.B $03,'LEA',0,5 
De  BXna+BNna+BZna+BVna+] 
BCna 
Do TouM-M1-M2-M4-M5-M12,/ 
M2+A_L 
xLink Dc.B $04,'LINK,0,17,-1 
Dc  BXna+BNna+BZna+BVna+/ 
BCna 
Dc M2,M12 


xLsi  Dc.B $03/LSL',2,9,10,11 
Dc  BXp+BNp+BZp+BV0+BCp 
Dec M1,M1+A BWL 
De M12,M1+A_BWL 
De  PasM,TouM-M1-M2-M10-J 
M11-M12+A_W 
xLsr Dc.B $03/,'LSR',2,9,10,11 
De  BXp+BNp+BZp+BV0+BCp 
De Mi,M1+A BWL 
De M12M1+A_BWL 
Dc  PasM,TouM-M1-M2-M10-f 
M11-M12+A W 
Dc.B $04,'MOVE!,0,18+Mag3,-1 
De BXna+BNp+BZp+BV0+BCO 
De TouM,TouM-M2-M10-M11-J 
M12+A BWL 
xMovC  Dc.B $84,MOVE>C',0,19,-1 
Do  BXp+BNp+BZp+BVp+BCp 
De  TouM-M2,PasM+A W 
xMovea Dc.B $05,MOVEA',0,5 
Do  BXna+BNna+BZna+BVna+f 
BCna 
De  TouM,M2+A_W+A_L 
xMovU  Dc.B $84,MOVE_U,1,20,21 
De  BXna+BNna+BZna+BVna+f 
BCna 
De PasM,M2+A L 
Dec M2,PasM+A_L 
xMoviS Dc.B $84,MOVE<S',0,22,-1 
Dc  BXna+BNna+BZna+BVna+f 
BCna 
De PasM,TouM-M2-M10-M11-J 
M12+A W 
xMovtS  Dc.B $84,MOVE>S',0,23,-1 
De  BXp+BNp+BZp+BVp+BCp 
De TouM-M2,PasM+A W 
xMovem Dec.B $05,MOVEM',1,24,25,-1 
Dc  BXna+BNna+BZna+BVna+/ 
BCna 
De M1+M2M3+M5+M6+M7+] 
M8+M9+A_Wæ+A_L 
De TouM-M1-M2-M5-M12,M1+/ 
M2+A_Wa+A_L 
xMovep Dc.B $05,MOVEP",1,26,27,-1 
Dc  BXna+BNna+BZna+BVna+f 
BCna 


xMove 








De PasM,TouM-Mi-M2-M4-M5] xSuba Dc.B 504, SUBA',0,5,-1 Poms  Dc.B 
| -M12+A L Dc  BXna+BNna+BZna+BVna+] Dc.B  62,62,7,243,3 
Z xReset  Dc.B $05,RESET,0,0 BCna Dc.B 192,192,12,124 
sa NT Dc  BXna+BNna+BZna+BVna+] De  TouM.M2+A W+A_L Dc.B  198,198,193,182,16 
LR BCna xSubi  Dc.B $04,'SUB/,0,6,-1 Dc.B  67,99,6,7,4 
n pp De MI2TOUMMEMIO MIT] DB 199,198,227.168,0 
7 ROL: 12,TouM-M2-M10-M11- 3 É 166, 
ES M12+A_BWL Dc.B  3,99,7,227,0 
De M1,M6+A_W+A_L De MiMi+A BWL xSubq  Dc.B $04,SUBQ',0,6+Msgi,-1 Dc.B  99,0,48,6 
Dc M6,M1+A_W+A_L De M12M1+A EWL Dc  BXp+BNp+BZp+BVp+BCp Dc.B  198,198,213,131,224 
xMoveq Dc.B $05,MOVEQ",0,28 De  PasM TouM-M1-M2-M10-] De M12,TouM-M10-M11-M12/ Dc.B  14,63,0,51,0 
Dc BXna+BNp+BZp+BV0+BC0 M11-M12+A W +A_BWL Dc.B  198,0,96,28 
De M12.M1+A L «Por De:B S0S/ROR'20.10:11 xSubx _ Dc.B $04,SUBX',1,1,2 Dc.B 252,198,201,128 
xMuls  Dc.B $04,MULS,0,3,-1 De BXna+BNp+BZp+BVO+BCp Dec  BXp+BNp+BZp+BVp+BCp Dc.B  48,3,3,0,51 
Dc BXna+BNp+BZp+BV0+BC0 De MiM1+A BWL Dc M1,M1+A BWL Dc.B  1,140,192,204,6 
Dc  TouM-M2,M1+A_W De Mi2Mi+Â EWL De M5,M5+A BWL Dc.B  192,198,193,132,48 
xMulu  Dc.B $04,'MULU',0,3,-1 Dc  PasM TouM-M1-M2-M10-] xSwap  Dc.B $04,SWAP,0,16,-1 Dc.B  67,67,4,51,3 
Dc BXna+BNp+BZp+BV0+BC0 M11-M12+4A W Dc BXna+BNp+BZp+BV0+BC0 Dc.B  15,224,254,134 
De  TouM-M2,M1+A_W xRoxl  De.B $04/ROXL:2,9,10,11,1 Dc PasMM1+A W Dc.B  192,124,193,131,224 
xNbod  Dc.B $04,NBCD',0,11,-1 De BXp+BNo+BZp+BV0 +BCp xTas  Dec.B $03,'TAS',0,11 Dc.B  62,62,35,227,39 
Do  BXp+BN+BZp+BVi+BCp De  M1M1+A BWL Do BXna+BNp+BZp+BV0+BC0 Dc.B  224,196,12,124 
Doc PasM,TouM-M2-M10-M11-[ De Mi2M14Â BWL Dc PasM,TouM-M2-M10-M11-] 
M12+A_B De PasM,TouM-M1-M2-M10-J M12+A_B CadreFenetre Do 40,3,340.284 
xNeg  Dc.B $03,NEG',0,11 M11-M12+4A W xTrap  Dc.B $04,TRAP,0,30,-1 RectMnemo De 1,2,253,162 
De  BXp+BNp+BZp+BVp+BCp  xRoxr  Dc.B $04,ROXA',2,9,10,11,-1 Do  BXna+BNna+BZna+BVna+]  FectSyntaxest Do 256,16,284,230 
Dc PasM,TouM-M2-M10-M11-/ Do BXp+BNp+BZp+BV0+ECp BCna RectSyntaxes2 Do 284,16,298,223 
M12+A_BWL De Mi.Mi+A BWL De PasM,M12 RectControles Dec 254,1,298,15 
xNegx  Dec.B $04,NEGX',0,11,-1 De M12 Mi+A BWL xTrapv  Dc.B $05,'TRAPV,0,0 RectDest Dec 267,223,299,255 
De  BXp+BNH+BZp+BVi+BCp Dec PasM TouM-M1-M2-M10-J Dc BXna+BNna+BZna+BVna+/ RectDestPoms Dec 214,168,221,279 
Dc PasM,TouM-M2-M10-M11-J Mi1-M12+A W BCna PasTitre De 0 
M12+A_BWL xRte  Dc.B $03,ATE,0,0 Dec  PasM,PasM 
xNop  Dc.B $03,'NOP",0,0 Dc BXp+BNp+BZp+BVp+BCp xTst Dc.B $03,'TST,0,11 Curseur1 
De  BXna+BNna+BZna+BVna+/ De PasM,PasM Dec  BXna+BNp+BZp+BV0+BCO Dc  $0020,$0050,50048,50024 
BCna xRtr  Dc.B $03,'RTR,0,0 Dc PasM,TouM-M2-M10-M11-J Do $7FF2,58009,$7FC9,50825 
Dc PasM,PasM Dc  BXp+BNp+BZp+BVp+BCp M12+A BWL Dc $07C3,50421,503C3,$01FE 
xNot Dc.B $03,'NOT,0,11 Dc PasM,PasM xUnlk  Dc.B $04,'UNLK",0,31,-1 Dec  $0000,$0000,$0000,$0000 
ra és dé xRts  Dc.B $03,'ATS',0,0 De  BXna+BNna+BZna+BVna+] De $0020,$0070,50078,$003C 
, De  BXna+BNna+BZna+BVna+] BCna De  S7FFE,SFFFF,S7FFFSOFFF 
M12+A_BWL BCna De PasM,M2 F,$03FF,$01FE 
xOr  Dc.B $02/OR:1,3,4 Dé Petra te re 
Dc  BXna+BNp+BZp+BV0+BC0 xSbcd De.B $04,SBCD',1,1,2 ; Définitions diverses Do 50 h 
De  TouM-M2,M1+A_BWL Dc  BXp+BNisBZp+BVHBCp Icone  Dc.L  $00000000,$00000050 É 
"és il De M1M1+AB Dc.L S00000080,500001100 curseur? 
+ A c M Dc.L 0008 AA ,$000001 55 
xOrl Dc.B $03,'OR!',0,6 xScc Led na Dc.L au De  $00C0,$0140,$0180,$3D7C 
Do BXna+BNp+BZp+BVO+BCO De BXna+BNna+BZna+BVna+/ Dc.L  $00002A02,5000045 14 De $7FD6,$FEAB,SFD45,$FAAS 
De M12,TouM-M2-M10-M11-J BCna Dc.L $0000A280,500015140 De $FD45,SFAA3,$7D46,$7AAA 
M12+A_BWL Dc PasM,TouM-M2-M10-M11-J Dc.L $000228A0,500051440 De $3D54,$1AA8,$0DD0,50660 
xOriC  Dc.B $83,0RI>C',0,7 M12+A_B Dc.L  $00028A00,500014560 De $00C0,801C0,$0180,$3D7C 
Dc BXp+BNp+BZp+BVp+BCp xStop  Do.B $04,'STOP,0,29,-1 Dc.L  $0028A2A0,$00545140 De  S7FFE,SFFFF,SFFFF,SFFFF 
Do  M12,PasM+A_B Dc  BXp+BNp+BZp+BVp+BCp Dc.L  $008A2980,$00453D7C De  SFFFF,SFFFF,S7FFE,S7FFE 
xOiS  Dc.B $83,ORI>S,0,8 Dc  PasM,M12 Dc.L  $00A2FFD6,$1451FEAB De  $3FFC,$1FF8,S0FF0,$0660 
Dc  BXp+BNp+BZp+BVp+BCp xSub  Dc.B $03,'SUB',1,3+Msg3,4,-1 Dc.L  $2A28FD45,54515FAA3 De 0,8 
Dc M12,PasM+A W De BXp+BNp+BZp+BVp+BCp Dc.L $A20AFD45,$5100FAA3 
xPea  Dc.B $03,PEA'0,11 Dc  TouM,M1+A_BWL Dc.L  $2A007D46,514007AAA 
De BXna+BNna+BZna+BVna+/ De  M1,TouM-M1-M2-M10-M11/ Dc.L $0A003D54,505001AA8 
BCna -M12+A_BWL k Dc.L  $02800DD0,$0 1000660 





252,124,128,179,224 








Ces deux petits programmes, qui ont été 
utilisés pour la mise en pages du numéro 
26 (titre de l'article ‘Lissajous’ et 
Éditorial), montre qu'il est possible, 
grâce à la définition de l'affichage du 
Macintosh, d'obtenir des images de 
qualité avec des fonctions trigonomé- 
triques simples. 


Bien qu'ils ne soient pas très longs, les 
deux programmes se trouvent, comme à 
l'accoutumée, sur la disquette d'accom- 


Routine pour ‘noircir' la 
barre des menus 
(incorporée aux programmes Basic) 


ScrnBase EQU $824 
ScreenRow EQU $106 


2078 0824 MOVEA.L ScrnBase,A0 
7013 MOVEQ  #19,D0 

3238 0106 BO MOVE ScreenRow,D1 
10FCO00FF B1 MOVEB #FF,(A0)+ 
5341 SUBQ #1,D1 

66F8 BNE.S B1 

51C8 FFF2 DBRA D0,B0 

4E75 RTS 


pagnement de ce numéro. Rappelons ‘ 


qu'il n'est pas nécessaire d'avoir le 
Basic Microsoft pour utiliser les pro- 
grammes Basic publiés dans Pom's : 
une version ‘RUNTIME de la version 
2.00 se trouve sur chaque disquette 
Pom's depuis le numéro 23. . 


Programme ‘Courbe’ 


DEFINT A-Z:DIM C(15):PI!=3.1416:F 
OR I=0 TO 15:READ C(I):NEXT:W 
INDOW 1,"",(0,20)-(512,342),3: 
HIDECURSOR:BACKPAT VARPTR(C 
{(12)):A!=VARPTR(C(0)):A!:CLS:P 
ENMODE 10 

DATA &h2078,&h824,&h7013,&h3238,&h 
106,&h10FC,&hFF,&h5341,4h66F8,&h 
51C8,&hFFF2,&h4E75,-1,-1,-1,-1 

FOR I!=0 TO PI!*2 STEP .001:X=256 
+1.5*(90*COS(I!)-110*SIN(I!)): 
Y=150+.7*(80*SIN(8*I!)-(120*CO 
S(I!))):IF C THEN PRESETI(X,Y) 
:C=C-1 ELSE MOVETO X,Y:LINET 
O 256,190:C=9 

NEXT:BEEP:WHILE NOT MOUSE (0) :W 
END : MENU RESET:SHOWCURSOR 


Courbes 


Marianne Sutz 


Programme ‘Courbe2’ 


DEFINT A-Z:DIM A!(520),C(15):PI!= 
3.1416:FOR I=0 TO 15:READ C(I) 
:NEXT:WINDOW 1,"",(0,20)-(512, 
342),3:HIDECURSOR:BACKPAT VA 
RPTR(C(12)):A!=VARPTR(C(0)):A! 
:CLS 

DATA &h2078,&h824,&h7013,&h3238,6&h 
106,&h10FC,&hFF,&h5341,&h66F8,&h 
51C8,6hFFF2,6&h4E75,-1,-1,-1,-1 

FOR X=0 TO 255:IF X MOD 3 THEN N 
=3 ELSE N=1 

Y!=20*SIN(X*3*PI!/256)+X/2:FOR X2= 
0 TO 255 STEP N:Y2!=20*SIN(X2* 
3*P1I!/256)+X2/2:IF Y!+Y2!>=A!(2 
60-X+X2) THEN A!(260-X+K2)=Y!+Y 
2!:PRESET(256-X+X2,280-A!(260- 
X+X2)) 

NEXT:NEXT:BEEP:WHILE NOT MOUSE 
(0) :WEND:MENU RESET:SHOWCUR 
SOR 
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Frédéric Ivsic 


LOUPE est une routine écrite en 
assembleur 6502 qui réalise un 
effet de zoom sur une page 
graphique haute résolution. Elle 
agrandit et affiche en basse 
résolution une fenêtre extraite de 
cette image. 


La fenêtre superposée à l'image 
haute résolution se déplace avec 
les touches traditionnelles I, J, K 
et M. La vitesse de déplacement 
peut être modifiée avec les 
touches 1 à 9. 


La touche G permet de passer en 
basse résolution en recopiant le 
dessin situé dans la fenêtre, afin 
d'en étudier les détails. A 
l'inverse, la touche H fait revenir 
en mode haute résolution. 


Enfin, Escape permet de sortir 
du programme en revenant au 
niveau du Basic. 


Sur la disquette d'accompa- 
gnement, vous trouverez les 
fichiers : 


LOUPESS source en Big Mac 
LOUPE fichier 6502 exécutable 
LOUPE.DEMO petit 
programme de démonstration 
LOUPE.PIC image graphique 
utilisée pour la démonstration 


Le programme se charge en 


$7800 et utilise certaines routines 
de l'interpréteur Applesoft et du 
moniteur, en particulier HPOS et 
GBASCALC qui calculent les 
adresses respectives en haute ou 
basse résolution d'une ligne 
donnée. 

Les octets 6 à 9 de la page zéro 
sont également utilisés. 


Aucun accès spécifique au DOS 
3.3 n'étant utilisé, LOUPE est 
donc aisément portable vers un 
environnement ProDOS. 
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Programme 
‘LOUPE.DEMO'’ 


NB : Pour utiliser ce programme, vous devez 
avoir sur la disquette une image graphique 
nommée LOUPE PIC. Cette image est 
chargée à la ligne 54. 


5 REM -- DEMO LOUPE -- 

6 REM 

7 REM (F.IVSIC) 

8 REM 

9 LOMEM: 16384 

10 D$ = CHR$ (4) 

20 PRINT D$"BLOAD LOUPE,A$7800" 

30 HOME : HTAB 15: INVERSE : PRINT "DE 
MO-LOUPE": NORMAL 

34 PRINT 

41 PRINT 

43 PRINT "POUR PASSER EN HGR, TAPEZ (H 


















44 PRINT "ET DE MEME POUR GR, TAPEZ (G 


45 PRINT : PRINT " 
Pal 

46 PRINT "LES DEPLACEMENTS: J< >K" 

48 PRINT " M" 

50 PRINT : PRINT "LA VITESSE DE DEPLAC 
EMENT VERTICALE": PRINT "PEUT VARIER 
DE 1 A 9" 

52 PRINT : PRINT "ENFIN, (ESC) POUR FI 
NIR." 

53 PRINT : INPUT "TAPEZ RETURN..'";R$ 

54 PRINT D$"BLOAD LOUPE,.PIC,A$2000": R 
EM CHARGE IMAGE HGR 

55 REM -- GR,NON MIXTE ,HTE RES, -- 

60 POKE 49239,0 

62 POKE 49234,0 

65 POKE 49232,0 

100 CALL 30720 




















Source ‘LOUPE.S' 
Assembleur Big Mac 


a 
OS Lo © + où Un & ON 


ka 
ka 


3 sk kb bi kb 
SJ On US U N 


18 


N ON 
"= © à 


22 


23 


24 
25 
26 


27 


28 
29 


30 
31 
7; 


33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 


46 


47 


48 
49 
50 
51 
52 
953 
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| 
RRRRRRRRRRÉRRRRÉRRÉRRÉRRRRRÉ 
** * 
*# LOUPE HGR->GR * 
** * 
** F.IVSIC * 
** * 
** DOS TOOL KIT # 
RRARRRRRÉRRRRRRÉRRÉRRRRRRR RÉ 
* 
COORDX EQU $6 
COORDY EQU $7 
VARX EQU $8 
VARY EQU $39 
HPOS EQU $F411 
GBASL EQU $26 
GBASH EQU $27 
GBASCALC EQU $F847 
HOME EQU $FC58 
BELL2 EQU $FBE4 
* 
LIGHGR2 EQU $Fr9 
re HGR 
LIGHGR3 EQU $FA 
HGR 
LIGHGR EQU $FB 
LIGGR EQU S$FC 
OCTHGR EQU $FD 
) 
OCTHGR2 EQU $FE 
) 
OCTGR EQU $FF 
INDOCT EQU $CE 
HGR 
MASK EQU $CF 
MIXT EQU $D6 
VITESSE EQU $D7 
nt en Y de 1..9 
* 
* 
ORG $7800 
* 
INIT LDX #20 
STX VARX 
LDX #96 
STX VARY 
LDX #1 
STX VITESSE 
* 
KEY LDA VARX 
STA COORDX 
é& VARY vers 
LDA VARY 
ar ces derniers 
STA COORDY 


*Dernière ligne fenet 
*Avant-dernière ligne 
*Première ligne HGR 
*Première ligne GR 
*Octet HGR (1{/Colonne 


*Octet HGR (6[Colonne 


*Octet GR (1 à 40) 
*Index Bit dans octet 
*Cadre HGR Col. D£&G 


*Vitesse de déplaceme 


*fenetre au 
*centre écran 


*Vitesse = 1 


* - transfert de VARX 


” COORDX & COORDY c 


* sont modifiés après 


chaque visualisation 


JSR 
JSR 
BIT 
LDA 
PHP 
BIT $C010 
cée 4 RAZ 
PLP 


L1 

L2 
$c010 

$Co000 


* par Li et L2 


* Lect clavier 


* Indic. touche enfon 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 


88 
89 
90 
91 
92 
93 


94 
95 
96 
97 
98 
99 
100 


101 


102 


103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 


114 
115 
116 


KEY 
#$57F 


* 


* —--- BOUCLE 
#$1B 
FIN 
#$547 
A1 
#00 
$co56 
BELL2 
#$548 
A2 
#00 
$co57 
BELL2 
A7 


CPY 
BEQ 
CPY 
BNE 
LDX 
STX 
JSR 
CPY 
BNE 


A1 


#00 
$Co51 
BELL2 
HOME 


FIN 


* 


* --- Coordonnees Y --- 
* 


A2 CPY 
BNE 
SEC 
LDA 


SBC 


#549 
A3 


VARY 
VITESSE 


retour a KEY 


*si non, 
BIT 7 À ZERO 


DE LECTURE DU CLAVIER --- 


* Données = <ESC> ? 
Fin de programme 
* = <G> ? 


*Basse résolution 


* = <H> ? 


*Haute résolutn 


* Mode text 
*Beeeeeeep!!! 
*Efface écran text 
*retour BASIC 


= haut 


* Mvt modulable par i 


ncrement de 1 a 9 


VARY 
#$4D 
A4 


STA 
CPY 
BNE 
CLC 
LDA 
ADC 


A3 


VARY 
VITESSE 


* 'M' = bas 


* Mvt modulable par i 


ncrement de 1 a 9 


STA VARY 


* 


* —--- Coordonnees X --- 


* 


A4 CPY #$4A 
BNE A5 
SEC 
t constant car 
LDA VARX 
par pas de 7 


SBC #1 


* !"J' = gauche 


* Ici le mouvement es 


* celui-ci s'effectue 


* bits (1 octet) sur 


l'écran graphique 


STA 
CPY 
BNE 
CLC 
LDA 
ADC 
STA 


VARX 
#$4B 
A6 


A5 


VARX 
#1 
VARX 


#531 
A7 
#$3A 


A6 CPY 
BCC 
CPY 
nt 
BCS 
SEC 
TYA 


A7 


* !'K' = droite 


* Idem ci-dessus 


* Y<'l' alors A7 


*si Y>=':' (code suiva 


"9'),alors A7 
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117 SBC #$30 *1...9°= '531..839 
118 STA VITESSE *d'ou la soustraction 
de $30 

119 JSR BELL2 

120 * 

121 A7 UMP KEY *Fin de la boucle de 
lecture 

122 * 

123 * -- SAUT EFFACE CADRE HGR (bis) -- 

124 * 

125 L2 JSR  CADREHGR *pour effacer le 

126 RTS *cadre HGR après ler 
appel à la routine 

127% 

128 * -- CALCUL DE X ET Y 1[ OCTET HGR -- 

129 * 

130 Li SEC *principale. 

131 LDA COORDX *coordonnées X, 

132 SBC #3 *Y octet HGR en 

133 STA COORDX *haut à gauche 

134 SEC *fenetre HGR de 

135 LDA COORDY * 6 oct x 24 lig 

136 SBC #12 

137 STA COORDY 

1238 * 

139 * -- TEST LIMITE DE LA FENET = 

140 * 

141 LDA COORDX *X entre 0 et 33 

142 BMI S1 * (33=39-6) 

143 CMP #34 

144 BCS S2 

145 UMP 53 

146 S1 LDA #00 

147 STA COORDX 

148 BEQ S3 

149 S2 LDA #34 

150 STA COORDX 

251 53 LDA COORDY *Y entr 0 et 167 

152 CMP #243 *(167=191-24) 

153 BCS S4 

154 CMP #167 

155 BCS 5S5 

156 JUMP S6 

157 S4 LDA #00 

158 STA COORDY 

159 BEQ S6 

160 S5 LDA #167 

161 STA COORDY 

162 S6 JSR  CADREHGR *'utilise 

163 JMP  TRANSF *CADREHGR seul pour e 
ffacer 

164 * 

165 * -- CALCUL PRELIMINAIRE -- 

166 * 

167 CADREHGR LDA #22 *Pag HGR pleine 

168 STA MIXT 

169 M2 LDA COORDY *Initialise 

170 STA LIGHGR *lere ligne HGR 

1:72 CLC 

172 ADC MIXT 

1:74 STA LIGHGR3 * Avant-dernière lign 
e 

174 ADC #1 

175 STA  LIGHGR2 *Dernière ligne 

176 LDA COORDX 

177 STA  OCTHGR * ler octet 

178 CLC 

179 ADC #5 


180 


181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 


206 
207 
208 
209 
210 
211 
212 
213 
214 


215 
216 
217 
218 
219 


220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 

232 
233 
234 
235 
236 
237 
238 
239 
240 
241 

242 
243 


* 


STA 


OCTHGR2 


igne) 


CLC 
LDA 
STA 
STA 
STA 
LDA 
STA 


#00 
LIGGR 
OCTGR 
INDOCT 
#520 
$E6 


*éème octet {fin de 1 


* ler ligne GR 
* ler octet GR 
* Index = 0 

*$20 dans $E6 = 
*page 1 ds HPOS 


* -- DESSIN CADRE EN HGR -- 


* 


* 


COLONE 
COL1 


LDA 
LDX 
LDY 
JSR 
JSR 


LDA 
LDX 
LDY 
JSR 
JSR 
JMP 


LIGHGR 
#00 
#00 
HPOS 
LIGNE 


LIGHGR2 
#00 

#00 
HPOS 
LIGNE 
SUITE 


OCTHGR 
(GBASL), Y 


#$7F 
(GBASL) ,Y 
OCTHGR2 
LIG2 


LIG1 


#1 


MASK 
OCTHGR 
COLONE 


#$40 
MASK 


OCTHGR2 
COLONE 


LIGHGR 


#1 


#00 
#00 
HPOS 


(GBASL) , Y 
MASK 
(GBASL, Y 


LIGHGR3 
COL3 


* lère ligne 


*Dernière ligne 


* Trace trait en 
* couleur complémenta 


* Colonne de gauche a 


* le masque 0000 0001 


* Colonne de droite a 


* le masque 0100 0000 


* Trace colonnes 
* tjs en complt 
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BNE COL1 


245 COL3 RTS 307 JMP S12 

246 * 308 * 

247 * -- TRANSF HGR -> GR -- 309 S14 PLP 

248 * 310 LDA #$566 

249 TRANSF LDY #00 *lère ligne GR 311 JMP S10 

250 LDA #00 312 * 

251 JSR CADI 313 CADREGR LDY #00 *Dernière ligne GR en 

252 INC LIGGR trait plein 

253 INC LIGHGR 314 LDX MIXT 

2374 # 315 INX 

255 NEWLIG LDA LIGHGR *Adresse ligne 316 TXA 

256 LDX #00 *en cours et chargeme 317 JSR CADI1 
nt 318 RTS 

257 LDY #00 *de l'octet HGR 319 * 

258 JSR HPOS 320 CAD1 JSR GBASCALC *trace en plein la li 

259 LDY OCTHGR gne de n°2A 

260 LDA  (GBASL),Y 321 CAD2 LDA #$66 

261 BYTE ROR sRotation, test (bit=1 322 STA (GBASL) ,Y 
) de 323 CPY #39 

262 PHA *6 bits affichés de 1 324 BEQ CAD3 
'octet 325 INY 

263 TYA 326 BNE CAD2 

264 PHA 327 CAD3 RTS 

265 PHP 

266 LDA LIGGR 

267 JSR  GBASCALC 

























268 LDY OCTGR ; 

269 LDA #$SFF *Adresse en GR et tra Pom S VOUS Propose : 
nsfert 

270 CPY #00 Q 

mn ms "Dominos ” 

272 CPY #39 . 

273 BEQ S14 

274 BCS S11 






















275 PLP * bit 1 = $FF . = 

pes ur a HS es Thierry Haurie Apple ][+, lle, llc 
277 LDA #00 

278 S10 STA (GBASL),Y 


Il est inutile de présenté le jeu de dominos; 
celui-ci bénéficie d'un graphisme très soigné 
(en couleur si vous disposez d'une carte "Chat 




























282 LDX INDOCT *Décompte de 7 bits d Mauve") et les messages transmis par le 
‘un octet HGR programme sont, au choix, en Français, en 

283 CPX #7 Italien, en Allemand ou en Anglais. 

284 BEQ S8 

285 INC INDOCT 










286 INC OCTGR 












287 BNE BYTE 

288 S8 LDX #00 *Passage à l'octet HG ; D 
pee DONMINOS LL 

289 STX INDOCT ta Ge MES non sine, 

290 LDX  OCTHGR S : 

291 CPX OCTHGR2 

292 BEQ S9 

293 INC OCTHGR 








294 BNE NEWLIG 
295 59 LDX #00 *ligne suivante 
296 STX OCTGR 






297 LDX  COORDX 
298 STX OCTHGR 
299 LDX LIGGR 
300 CPX MIXT 
301 BEQ CADREGR 
302 INC LIGGR 
303 INC LIGHGR 
NEWLIG 













56 Pom's n° 26 








Récapitulation 

‘LOUPE’ Une nouvelle disquette Pom's : ÉÉRERE 
Aprè ” nés cod e 
a Ordico 


BSAVE LOUPE,A$7800,L$1E7 


7800- A2 14 86 08 A2 60 86 09 Apple ][+, lle, lle+, lle 

7808- A2 01 86 D7 A5 08 85 06 

7810- A5 09 85 07 20 96 78 20 pe et 

D Se ue Destiné aux amateurs de mots croisés ou de Scrabble, 
7820- CO 28 10 E8 29 7F A8 CO cette base de données, due à Roland Jost, permet de 
7828- 1B FO 1B CO 47 DO 08 A2 trouver un mot de longueur donnée dont on ne connaît 


7830- 00 8E 56 CO 20 E4 FB CO 
7838- 48 DO 17 A2 00 8E 57 CO 
7840- 20 E4 FB 4C 8F 78 A2 00 
7848- 8E 51 CO 20 E4 FB 20 58 Ordico contient plus de 15000 mots classés en 70 


que quelques lettres. 


7850- FC 60 CO 49 DO 07 38 AS , 

7858- 09 E5 D7 85 09 CO 4D DO rubriques. £ | or 

7860- 07 18 A5 09 65 D7 85 09 Recherches et affichages sont rapides : un fichier de 
7863 OÙ AA.D0 O7 SAS PERS 1500 mots est chargé en moins de 10 secondes et 
7870- 01 85 08 CO 4B DO 07 18 14 2 1 z 

Dé des DACEE HR Mon GE exploité quasi-instantanément. 
7880- 90 OD CO 3A BO 09 38 98 Il est bien sûr possible d'ajouter des termes aux divers 
7888- E9 30 85 D7 20 E4 FB 4C fichiers, de créer de nouvelles rubriques. 

7890- OC 78 20 D6 78 60 38 A5 

7898- 06 E9 03 85 06 38 A5 07 = : 

78A0- E9 OC 85 07 A5 06 30 07 Voici quelques rubriques : 

78A8- C9 22 BO 09 4C B9 78 A9 1ère face : 

EE ro le a Acteurs, Animaux, Armes/guerres, Auteurs américains, Auteurs anglais, 


78B8- 06 A5 07 C9 F3 BO 07 C9 
78C0- A7 BO 09 4C DO 78 A9 00 
78C8- 85 07 FO 04 A9 A7 85 07 


Auteurs français, Chimie, Cinéastes, Coureurs cyclistes, 
Départements/régions, Dieux/déesses, Familles végétales, Femmes 





nee de en ner tie célèbres, Hommes politiques, Iles, Jeux/sports, Minéraux, Montagnes, 
Hobe dun as UT SR 0 Eà Musiciens jazz, Musiciens, Parties du corps, Peintres étrangers, Peintres 
MED. 6 BEN EU DIN FES français, Rivières/fleuves, Saints/saintes, Savants/inventeurs, 
78E8- 06 85 FD 18 69 05 85 FE Sculpteurs, végétaux, Vêtements, Villes 
78F0- 18 A9 00 85 FC 85 FF 85 2ème face : 
78F8- CE A9 20 85 E6 A5 FB A2 Athlètes, Boxeurs, Cantatrices, Cols, Cosmonautes, Coureurs 
7900- 00 AO 00 20 11 F4 20 18 automobiles, Déserts, Détroits, Doctrines philosophiques, Drogues, 
7908- 79 A5 F9 A2 00 AO 00 20 Escrimeurs, Explorateurs, Gymnastes, Haltérophiles, Judokas, Lutteurs, 
7910- 11 F4 20 18 79 4C 28 79 Maladies, Maréchaux de France, Médicaments, Nageurs, Patineurs, 
7918- A4 FD Bl 26 49 7F 91 26 Poissons, Présidents américains, Skieurs, Ski nordique, Unités, Villes | 
7920- C4 FE FO 03 C8 DO F3 60 olympiques 
7928- A9 01 85 CF A4 FD 20 3B 
7930- 79 A9 40 85 CF A4 FE 20 
7938- 3B 79 60 A5 FB 18 69 01 Exemples : 
ae 48 AA 98 48 8A A2 00 A0 Un musicien dont le nom comporte 7 lettres, les 2ème 
48- 00 20 11 F4 68 A8 B1l 26 x ‘Ç ; 
Do. DE DAV DES LR En et 5ème sont des ‘E’. Tapez : -E--E-—. Vous obtenez | 
7958- 02 DO E2 60 A0 00 A9 00 instantanément : 
7960- 20 D8 79 E6 FC E6 FB A5 BENNETT DEBOECK DELEEUW GEVAERT LESUEUR PEDRELL PEETERS 
7968- FB A2 00 AO 00 20 11 F4 WELLESZ | 
7970- A4 FD B1 26 6A 48 98 48 : 
7978- 08 A5 FC 20 47 F8 A4 FF Dans les acteurs, —-A- — — —E vous donnerait : 
7980- A9 FF CO 00 FO 42 CO 27 CARETTE PALANCE RACETTE RANDONE RAYMONE VALLONE 
7988- FO 3E BO 38 28 BO 02 A9 . 
7990- 00 91 26 68 A8 68 A6 CE LS 
7998- EO 07 FO 06 E6 CE E6 FF CAUCHY CEECHI ENIGHT VAUGHN WRIGHT 
70 DO DS AZ 00 66 CCR LE nmmm—— dans les femmes célèbres donnerait 32 
79A8- E4 FE FO 04 E6 FD DO B7 
79B0- A2 00 86 FF A6 06 86 FD noms... 


79B8- A6 FC E4 D6 FO 10 E6 FC | 
79C0- E6 FB DO A3 28 4C 93 79 E = 
Disquette double face et documentation : 
200,00 F franco. Bon de commande page 74 


79C8- 28 A9 66 4C 91 79 AO 00 
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79D0- A6 D6 E8 8A 20 D8 79 60 
79D8- 20 47 F8 A9 66 91 26 CO 
79E0- 27 FO 03 C8 DO F5 60 

















CALLRWTS 


Patrice Neveu 


ZS 
ee 





CALLRWTS est un petit module 
en assembleur qui facilite les 
appels à RWTS. Pour les 
profanes, RWTS est le point 
d'entrée du DOS 3.3 qui permet 
d'accéder directement à une 
disquette, soit en lecture, soit en 
écriture (les fonctions de 
formatage ne sont pas 
exploitées). 

Ce programme s'adresse à tous 
les débutants désireux de se 
familiariser avec la structure 
interne des disquettes, et qui ne 
disposent pas d'un éditeur de 
secteurs. 


Son utilisation est très simple : 
BRUN CALLRWTS 


charge la routine et initialise le 
vecteur de l'ampersand qui est 


utilisé pour tous les appels. 
L'utilisation s'étend à tout Apple 
J[, ][+, //e ou //c exploité sous 
DOS 3.3. 


Les nouvelles fonctions dispo- 

nibles sous Applesoft sont alors : 

& DISK (slot,drive,volume) 
définition de la disquette de 
travail 

& RSEC (piste,secteur,adresse) 
lecture d'un secteur 


& WSEC (piste,secteur,adresse) 
écriture d'un secteur 
& RTRK (piste,adresse) 
lecture d'une piste complète 
& WTRK (piste,adresse) 
écriture d'une piste complète 
Ici “adresse” signifie l'adresse en 
décimal de début du buffer utilisé : 256 
octets pour un secteur, 4096 octets pour 
une piste complète. 


& BELL 
& BELI1 : deux fonctions 
envoyant un “beep” différent. 


& REPT (nombre, chaîne") 
fonction répétitive d'une chaîne 
de caractères, indiquée soit 
directement, soit sous forme 
d'une variable alphanumérique. 


Le source CALLRWTS.S est 
modifiable par l'assembleur Big 
Mac. Le module objet se charge 
en $9000 et fixe Himem à cette 
valeur, mais son adresse 
d'implantation peut être 
éventuellement modifiée par un 
nouvel assemblage. 





BIG MAG ni 


* 


24 RRRRRARRARARAAARRARAÉR RER EE 


* 


33 * NE PAS MODIFIER LE PROGRAMME 
34 * SOUS PEINE DE NE PLUS FONCTIONNER 
35 * CAR IL PRESENTE DES ADRESSES 


Source ‘CALLRWTS.SCE" 22 * 
Assembleur Big Mac mél 
251 x 
L'ARRARAARÉRRRARRREAARARÉRE RARE 26 * 
2 + PT LES 
3 *  INSTRUCTIONS AMPERS + 28 *AXARARAAAEAARX 
4x * 29 * IMPORTANT: 
5 * * 30 ARRRARRARRRÉRÉREX 
6 * COPYRIGHT OCTOBRE 1984 * 31:# 
+ * 32 = 
8 LELSSLSSSSSLLSLELLLLLLLLLILLE: 
9 * * 
10 *FONCTIONS: - REPT * 
11 * — DISK x 36 * RESERVEES 
12 ® - RSEC e SE 
13 * -— WSEC * 38 * 
Ja # - RTRK * 39 * 
15 # - WTRK * 40 * 
16) * - BELL * 41 *# 
27 * - BEL] # 42 HIMEM = 
181:*# * 43 A1L = 
19 * * 
20 *RRRRRRRARRRRRRERARRARERAEX 44 A1H = 
* 45 A4L - 


S73 :FIXE HIMEM 

$3C ; SAUVEGARDE DE 
TRANSMISSION 

$3D ;DE PARAMETRES 

$42 ‘ZONE DE SAUVEGARDE 
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OP OT ENRONEE AC ST ES 











46 A4H = $43 ; AVANT L'APPEL DU 90 * FIXE HIMEM * 
SOUS-PROGRAMME 91 HARRRÉRRR RÉ A AE ER ÉR ER EEE EX 
47 LINNUM = $50 ;REGISTRE 16 BITS 92 + 
48 VARPNT = $83 ; ADRESSE DE LA 93 LDA #$00 ; ADRESSE BASSE 
DERNIERE VARIABLE 94 STA HIMEM 
49 CHRGET = $B1 ; PROCHAIN CARACTERE 95 LDA #$90 ; ADRESSE HAUTE 
50 RWTS = $3D9 ; LECTURE/ECRITURE D'UN 96 STA HIMEM+1 
SECTEUR 97 * 
51 PTRGET = $DFE3 ; RESULTAT DE GETARYPT CERELELESELELESEESSSSSSS LES SE 
52 FRMEVL = $DD76 EVALUATION DE TXTPTR 99 *  MEMORISE SLOT & DRIVE* 
53 FRMNUM = $DD67 ;EVALUATION DE TXTPTR HI RELLELEELEEEESEESESSES LES ESS 
ET RANGEMENT DANS LA FAC 101 * 
54 CHKOPN = $DEBB ;TXTPTR POINTE T'IL 102 LDA SNUM16 ; DERNIER NUMERO DE 
SUR ( SLOT 
55 CHKCLS = $DEB8 ;TXTPTR POINTE T'IL 103 STA NUMSLT 
SUR ) 104 LDA  DNUM ; DERNIER DRIVE UTILISE 
56 CHKCOM = $DEBE ;TXTPTR POINTE T'IL 105 STA NUMDRV 
SUR , 106 RTS 
57 CONINT = $E6FB ;CONVERTIT LE FAC EN 107 * 
À UN SEUL OCTET 108 * 
58 AYIN = $E199 ;REND ENTIER LE FAC 109 * 
59 GETADR = $SE?752 ; TRANSFORME FAC EN [PURE LLLLLLLELELELLELEELSEELEEE 
ENTIER À 2 OCTETS 111 * INTERPRETATION CMDE  * 
60 OUTDO = SDB5C ;: AFFICHE TI? RARAARRRRÉRRRÉARÉAÉÉÉÉÉÉ EE AE 
i L'ACCUMULATEUR À 113 + 
61 STROUT = $DB3A ; AFFICHE LA CHAINE 114 * 
POINTEE PAR (Y,A) 115 INTERPR LDX #$00 
62 TXTPTR = $B8 ; ADRESSE DU DERNIER 116 STX CMD 
CARACTERE OBTENU PAR CHRGET 117 INTERI  LDY #$00 
63 CMD = $19 118 LOOP1 LDA CTBL,X 
64 AMPER = $3F5 ; ADRESSE DE & 119 BEQ TROUVE 
65 SNUM16 = $B7E9 ; ADRESSE NUMERO DE 120 CMP  #$FF 
SLOT 121 BEQ ERREUR 
66 DNUM = $B7EA ;: ADRESSE NUMERO DE 122 CMP  (TXTPTR),Y 
DRIVE 123 BNE SUIVANT 
67 ADDON = $D998 ; AJOUTE 1 AU REGISTRE 124 INY 
Y 125 INX 
68 SNTX = $DEC9 ; SYNTAX ERROR 126 BNE LOOP1 | 
69 PRBYTE - $FDDA ; AFFICHE À EN DEUX 127 ERREUR JUMP SNTX 
CHIFFRES HEXA 128 SUIVANT INX 
70 SPKR = $c030 ; STIMULE LE HAUT 129 LDA CTBL,X 
PARLEUR 130 BNE SUIVANT 
71 VAR = $0478 131 INX 
72 SETTRK. = $BE95 ;LECTURE ALLOCATION 132 INC CMD 
DES PISTES 133 BNE  INTERI 
73 RWLANG = $c088 134 TROUVE JSR ADDON 
FATE 135 ASL CMD 
75 * 136 LDX CM 
76 ORG $9000 137 LDA ATBL+1,X 
l'X dl 138 PHA 
78: # 139 LDA ATBL,X 
79 RRRARARÉARARÉERÉRÉAAX AE EX 140 PHA 
80 * INITIALISE & * 141 RTS 
81 HÉHÉEERAÉÉERÉEE EEE XL ER 142 + 
82 * 143 * 
83 * PCRELLLLLLSELELLLLLSSSSLSSS SE) 
. 84 ENTR LDA  #<INTERPR 145 * TABLE DES COMMANDES * 
85 STA AMPER#1 146 RAA AAA AA AURA EE AE ET 
86 LDA #>INTERPR 147 * | 
87 STA AMPER+2 148 * 
' 88 * 149 CTBL ASC 'REPT' 
89 ARARARAAAARAAÉAÉERERRRAR AA EX 150 HEX 00 
; = = 9000- A9 1F 8D F6 03 A9 90 8D 9040- E6 19 DO DF 20 98 D9 06 
Récapitulation 9008- F7 03 A9 00 85 73 A9 90 9048- 19 A6 19 BD 7E 90 48 BD 
‘CALLRWTS’ 9010- 85 74 AD E9 B7 8D 18 91 9050- 7D 90 48 60 52 45 50 54 
9018- AD EA B7 8D 19 91 60 A2 9058- 00 44 49 53 4B 00 52 53 
9020- 00 86 19 AO 00 BD 54 90 9060- 45 43 00 57 53 45 43 00 
Après avoir saisi ce code sous 9028- FO 1A C9 FF FO 08 D1 B8 9068- 52 54 52 4B 00 57 54 52 
moniteur, vous le sauvegarderez par 9030- DO 07 C8 E8 DO EF 4C C9 9070- 4B 00 42 45 4C 4C 00 42 
BSAVE CALLRWTS,A$9000,L$23C 9038- DE E8 BD 54 90 DO FA E8 9078- 45 4C 31 00 FF E3 90 35 
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151 
152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 * 
167 * 
168 ATBL 
169 

170 


















































171 


172 
173 


174 

179 

176 

177 

178 FINTBLE 


179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 ECTXT 
207 
208 


ZEROA1L 


MAXSLT 


RGESLT 


VAR3 





"DISK" 
00 
"RSEC" 
00 
‘WSEC" 


"BELl' 
00 
FF 


REPT-1 
DISK-1 
RSEC-1 
SECTOR 
WSEC-1 
SECTOR 
RTRK-1 
WTRK-1 
TRACK 
BELL-1 
BEL1-1 


00 
COMMANDES 

#$00 

A1L 

$00B7 

#$522 

ECTXT 
TXTPTR 
MAXSLT 
TXTPTR+1 
TXTPTR 
A4L 
TXTPTR+1 
A4H 

#$00 
(TXTPTR), Y 
#$22 

VAR3 


RGESLT 
A1L 


TXTPTR 
TXTPTR 
#$00 
TXTPTR+1 
TXTPTR+1 
CHRGET 
PTRGET 
$81 
FRMEV 


;:FF = FIN DE LA TABLE 


; ADRESSE FONCTION DISK 
; ADRESSE DE READ 


; ADRESSE DE WRITE 


; ADRESSE DE READ TRACK 
; ADRESSE DE WRITE 


; SON DE CLOCHE 
; SON DE CLOCHE GRAVE 


;FIN DE LA TABLE DES 


209 
210 
211 

212 
213 
214 
215 

216 
217 
218 
219 
220 
221 

222 
223 
224 

225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 

252 

253 
254 
255 
256 

257 

258 


259 
260 
261 
262 
263 
264 
265 
266 
267 
268 


FRMEV 
MZERO 


STA 
PLA 
STA 
RTS 


Li 


$82 

MZERO 
FRMEVL 

#$00 
(VARPNT), Y 
A1L 


{(VARPENT),Y 


(VARPNT), Y 


A4H 


A4L 





RARARÉÉAÉRÉRÉRRRÉRRRRRÉRÉÉ EX 


* POINT D'ENTREE DE REPT * 


RAARARARAARRARARÉRRRRRRRREX 


REPT JSR 
JSR 
JSR 
STX 
JSR 
JSR 
LDA 
BEQ 
LDA 
BEQ 
LDY 
LDA 
STA 
LDA 
JSR 
INY 
DEC 
BNE 
DEC 
BNE 
FCHKCLS JMP 


REPTO 


STREPT 


CHKOPN 
FRMNUM 
CONINT 
FINTBLE 
CHKCOM 
ZEROA1L 
A1L 
FCHKCLS 
FINTBLE 
FCHKCLS 
#$00 
A1L 
A1H 
(A4L),Y 
OUTDO 


A1H 
STREPT 
FINTBLE 
REPTO 
CHKCLS 


HhttR*tRARRRRtRR EEE 


* TABLE I.0O.B. Æ 
ÉPLLLLLILLILLLLLILL: 


DEBUT HEX 
NUMSLT HEX 
NUMDRV  HEX 
VOLUME HEX 
PISTE HEX 
SECTEUR HEX 
TABLE HEX 

HEX 
BUFF HEX 
BUFF1 HEX 

HEX 


01 


00 
00 
00 
00 
00 
28 
91 
00 
00 


- 00 


; PARAMETRE DOIT ETRE À 


; ADRESSE BASSE 
; ADRESSE HAUTE 
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270 MODE HEX 00 
271 CODERR HEX 00 
272 HEX 00 
273 RTS 

274 HEX 00 
275 

276 


EPA LLLLLLLLELELLLEES 
278 * TABLE DEVICE * 


279 HARRHARRRÉRRRERREX 


280 
281 
282 HEX 00 
283 HEX 01 
284 HEX EF 
285 HEX DB 
286 
287 
288 PARMS  LDY #$17 
| 289 LDA #$91 
290 UMP  RWTS 


291 BUFF4 HEX 00 
292 BUFFS HEX 00 
293 BUFFB HEX 00 


295 RAAAARARÉÉÉRAÉAEÉRARAR RE EX 


296 * POINT D'ENTREE DE DISK * 
ELYAELLLLLLLLLLELLLLESSLLELLEESS 


298 * 
299 * 
300 DISK JSR  CHKOPN 
301 JSR FRMNUM 
302 JSR CONINT 
303 CPX +#$08 
304 BCC RETN 
305 FAC JMP  AYIN 
306 RETN STX BUFF4 
307 TXA 
308 ASL 
309 ASL 
310 ASL 
311 ASL 
312 STA NUMSLT 
313 JSR  CHKCOM 
314 JSR  FRMNUM 
315 JSR CONINT 
316 CPX #$05 
317 BCS FAC 
318 STX BUFF5 
319 STX  NUMDRV 
320 LDA #$00 
321 STA BUFFB 
322 STA VOLUME 
323 JSR $00B7 
324 CMP. #$2C 
325 BEQ VDISK 
o 326 JMP  CHKCLS 
327 VDISK JSR  CHKCOM 
328 JSR FRMNUM 
329 JSR CONINT 
4 330 STX BUFFB 
331 STX VOLUME 


JMP  CHKCLS 
TESTDISK JSR CHKOPN 
JSR  FRMNUM 
JSR CONINT 
STX PISTE 
JSR  CHKCOM 
TXTDISK JSR FRMNUM 
JSR CONINT 
STX SECTEUR 
JSR  CHKCOM 
JSR  FRMNUM 
JSR  GETADR 
LDA LINNUM 
STA BUFF 
LDA  LINNUM+1 
STA BUFF1 


UMP  CHKCLS 
* 
* 
PET LLLLLLLILLLLLLLLLLLLELS. 


* POINT D'ENTREE DE RSEC * 
RTL LIILLLILLLLILLLLLLESLE 
* 
RSEC LDA #$01 

STA MODE 
NTRSEC JSR TESTDISK 

JSR PARMS 

BCC ERROR 


PRERR JMP  $D412 


HEX 00 
ERROR RTS 


HARAÉRRÉARÉERÉÉRÉÉRÉÉR EEE HER 


* POINT D'ENTREE DE WSEC * 
PETLLII LILI IILILLLLLLLLLLLE! 


WSEC LDA #$02 
STA MODE 
BNE NTRSEC 

NBRESECT LDA #$0F 
STA SECTEUR 


LDA BUFF1 
ADC #$0F 
STA BUFF1 
LECTECRT JSR PARMS 
BCS PRERR 
DEC BUFF1 
DEC SECTEUR 
BPL LECTECRT 
RTS 
* 
PETTLLIILILLLLLLILLLLLLLLL 


* POINT D'ENTREE DE RTRK * 


PELLLLLLLLLSSSSLLSSSSÉSSE SES) 
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394 RTRK LDA #$01 423 BIT SPKR 


395 STA MODE 424 TAY 

396 BNE TESTWTRK 425 BELL4 DEY 

397 * 426 BNE BELL4 
398 RARRRARÉARARRARARRÉRÉRÉRRÉARÉRÉAÉRÉ 427 SBC #1 
399 * POINT D'ENTREE DE WTRK * 428 BEQ BELLI 
400 RARAAAAARRRÉRÉRÉRAARÉARÉRÉÉ 429 BIT SPKR 
401 * 430 DEX 

402 WTRK LDA #$02 431 BNE BELL2 
403 STA MODE 432 RTS 

404 TESTWTRK JSR CHKOPN 433 7 

405 JSR TXTDISK 434 * 

406 LDA SECTEUR 435 * 

407 STA PISTE 436 BEL1 LDX #$50 
408 JMP  NBRESECT 437 BEL2 LDA #$22 
409 * 438 BEL3 LDY #$02 
410 * 439 BELA4 DEY 

411 * 440 BNE BEL4 
412 * 441 BIT SPKR 
413 RRRRRRÉRRRRRRRRÉRÉRÉRÉEE 442 TAY 

1 + bol SON DE CLOCHE $ 443 BELLS5 DEY 

415 LÉRÉSSLELSELELSIL LILI LL LE) 444 BNE BELLS5 
416 * 445 SBC #1 
417 * 446 BEQ BEL2 
418 BELL LDX #$FF 447 BIT SPKR 
419 BELL1 LDA #$5B 448 DEX 

420 BELL2 LDY #$1B 449 BNE BEL3 
421 BELL3 DEY 450 RTS 

422 BNE BELL3 451 LST OFF 


9200- 8D 1B 91 4C CF 91 A2 FF 9218- FO EE 2C 30 CO CA DO EA 9230- FD E9 01 FO EE 2C 30 CO 
9208- A9 5B A0 1B 88 DO FD 2C 9220- 60 A2 50 A9 22 AO 02 88 9238- CA DO EA 60 


9210- 30 CO A8 88 DO FD E9 O1 9228- DO FD 2C 30 CO A8 88 DO 


Éditeur Plein Écran = P E 


Le Pacha 
Apple //e, //e+, //C 


. Listez vos programmes Basic en avant et en arrière. 

. Modifiez, insérez, effacez des caractères en plein écran 
sans relire les lignes. 

- Recherchez toute chaîne de caractères. 

. Choisissez vous-même les codes de contrôle d'EPE. 

- Modifiez EPE : le fichier source est sur la disquette. 


40 et 80 colonnes, DOS et ProDOS 


150,00 F TTC franco 
(bon de commande page 74) 
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Apprendre à compter 
avec des animaux 


Alain Idelon-Ritton 


Un jeu éducatif pour les petits, tel 
est l'objet du présent programme. 
Il s'agit d'apprendre les chiffres 
1 à 9 aux enfants des grandes 
. classes de maternelles et du cours 
préparatoire. De façon accessoire, 
il s'agit également de comprendre 
comment utiliser le module 
HRCG du Tool-Kit d'Apple. 
Le principe est simple : un certain 
nombre d'animaux, compris entre 
1 et 9, sortent d'un chapeau 
(magique, bien sûr !) ; l'enfant 
doit les compter et taper le bon 
chiffre ; un test complet 
comprend 10 essais. L'idée n'est 
pas neuve, mais les animaux 
intéressent les bambins. 


Le DOS Tool-Kit d'Apple, qui 
permet de mixer graphismes et 
textes, était particulièrement 
adapté. Les fichiers : 


+ Animaux.Set (affichage des 
animaux) 

+ Gros.Chiffre.Set (affichage 
des chiffres) 

+ _Bonhomme.Set (affichage du 
bonhomme MAXWELL) 


ont été obtenus avec le 
programme ANIMATRIX de la 
disquette Tool-Kit. 


Il ne restait plus qu'à les animer 
grâce à un programme 
fonctionnant sous l'environ- 
nement du module HRCG. 


CLELELEEEEEELELEEEEEEEEEEEEEEEETE LE CHAPEAU MâÂG jE QUE CLLLLLLELEELELEEETEELEEEEEEELEEL 


COMBIEN D'ANIMAUX 7 _ 


Mode d'emploi 


Avec une disquette contenant les 
sept fichiers suivants : 

COMPTER.ANIMAUX 

RBOOT 

RLOAD 

HRCG 

ANIMAUX. SET 

BONHOMME . SET 

GROS. CHIFFRE. SET 


il suffit de taper : 
RUN COMPTER.ANIMAUX 


Pour une bonne exploitation de ce 
programme, il est préférable 
qu'un adulte reste près de l'enfant 
pour le guider, l'aider à utiliser le 





clavier et reconnaître les touches 
correspondantes aux chiffres. 


N.D.L.R. : Pour des raisons de 
copyright, les fichiers RBOOT, 
RLOAD et HRCG ne figurent pas 


. sur la disquette Pom's. Il vous 


faudra donc les y transférer, à 


. partir de votre Tool-Kit, pour 


exécuter le programme. 

Le programme fonctionne 
également sans modification sous 
environnement ProDOS. En 
revanche, les fichiers ci-dessus 
devront être extraits du Tool-Kit 
pour ProDOS diffusé par Apple. 


G 





Programme 


‘COMPTER.ANIMAUX" 


10 REM *** COMPTER.ANIMAUX *** 
100 LOMEM: 24576 

110 GOSUB 5010 

120 HGR : POKE - 16302,0 

130 DIM CO(9,20) 

140 NR = 0 

150 GOSUB 8010 

160 GOSUB 7020 
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170 GOSUB 4000 
180 GOSUB 3000 


200 REM *** CORPS PRINCIPAL 
210 NN = INT ( RND (1) * 9) + 1 
2 220çA = INT ( RND (1} * 9) + 1 


230 FR = 0 


240 FOR J = O0 TO NN - 1: VTAB 10: HTAB 19: PRINT À 
N$(A):X = PEEK ( - 16336): FOR K = 1 TO 20: N 











EXT K: VTAB 10: HTAB 19: PRINT VV$ TAB 21: PRINT VVS$ 
250 X = PEEK ( - 16336) + PEEK ( - 16336) - PEEK 460 FOR J = O0 TO NN - 1: VTAB CO(NN,2* J}e == 
{ - 16336) + PEEK ( - 16336) O(NN,2 * J + 1): PRINT VV$: NEXT 
260 VTAB CO(NN,2 * J): HTAB CO(NN,2 * J + 1): PRIN 470 FOR I = 1 TO 4: VTAB 15: HTAB 4 * I - 2: PRINT 
T AN$(A): NEXT VVS: VTAB 15: HTAB 40 - 4 * I: PRINT VV$S: NEX 
270 VTAB 20: HTAB 2: PRINT "COMBIEN D'ANIMAUX ? "; TI 
: POKE - 16368,0: GET RES: PRINT RES 480 NR = NR + 1 
280 IF RE$ < "1" OR RES > "9" THEN PRINT G$: GOTO 490 IF NR < 10 THEN 210 
270 500 VTAB 3: HTAB 2: PRINT CVS: VTAB 23: HTAB 38: P 
290 RE = VAL (RES) RINT CWS$SCPS 
300 IF RE < > NN THEN 340 510 VTAB 5: HTAB 6: PRINT "TAPER ESC POUR TERMIN 
310 HTAB 2: PRINT CAS"O"CIS"BRAVO"CNS; ER": VTAB 7: HTAB 18: PRINT "OU" 
320 POKE 769,0: POKE 773,5: POKE 777,1: POKE 790,1 520 HCOLOR= 1: HPLOT 88,28 TO 114,28 TO 114,42 TO 
76: CALL 768 88,42 TO 88,28: HPLOT 87,27 TO 115,27 TO 115,4 
330 FOR I = 1 TO 200: NEXT I: HTAB 2: PRINT " 3 TO 87,43 TO 87,27 
": GOTO 460 530 VTAB 9: HTAB 6: PRINT "TAPER R POUR RECOMMEN 
340 FR = FR + 1 CER": VTAB 11: HTAB 19 
350 QV = INT ( RND (1) * 6) + 218: POKE 769,16: PO 540 HCOLOR= 1: HPLOT 88,60 TO 101,60 TO 101,74 TO 
KE 773,3: POKE 777,105: POKE 790,QV: CALL 768 88,74 TO 88,60: HPLOT 87,59 TO 102,59 TO 102,7 
360 IF FR = 1 THEN GOSUB 1000: GOTO 270 5 TO 87,75 TO 87,59 
370 IF FR = 2 THEN HTAB 2: PRINT G$SG$SG$CIS"OUH OU 550 GET R$: IF ASC (R$) < > 27 ANDR$S < > "RrT 
H OUH!!I"CN$;: VTAB 15: HTAB 3: PRINT CHS(NN); HEN 550 
: FOR I = 1 TO 200: NEXT I: VTAB 21: HTAB 2: P 560 IF R$ = "R" THEN NR = 0: PRINT CP$SCY$:: GOSUB 
RINT " ": GOTO 270 4000: GOTO 210 
380 IF FR = 3 THEN VTAB 15: HTAB 36: PRINT G$CHS( 570 PRINT CO$SCBSCYSCPSCOSCASCYSCPS 
NN): GOTO 270 580 VTAB 15: HTAB 17: PRINT "AU REVOIR" 
390 IF FR = 4 THEN VTAB 15: HTAB 7: PRINT G$CH$S(N 590 FOR I = 1 TO 20: VTAB 17: HTAB 20: PRINT BOS(6 
N): GOTO 270 ) 
400 IF FR = 5 THEN VTAB 15: HTAB 32: PRINT G$CH$( 600 FOR K = 1 TO 20: NEXT K: VTAB 17: HTAB 20: PRI 
NN): GOTO 270 NT BO$(5) 
410 IF FR = 6 THEN VTAB 15: HTAB 11: PRINT G$CHS( 610 FOR K = 1 TO 20: NEXT K: VTAB 17: HTAB 20: PRI 
NN): GOTO 270 NT BO$(4): FOR K = 1 TO 20: NEXT K 
420 IF FR = 7 THEN VTAB 15: HTAB 28: PRINT G$CH$S( 620 NEXT I 
NN): GOTO 270 630 VTAB 17: HTAB 20: PRINT BOS(3) 
430 IF FR = 8 THEN VTAB 15: HTAB 15: PRINT G$CH$( 640 POKE 790,144: CALL 768: POKE 790,255: CALL 768 
NN): GOTO 270 650 TEXT : HOME : PRINT "POUR UTILISER UN AUTRE PR 
440 IF FR = 9 THEN VTAB 15: HTAB 24: PRINT G$CHS( OGRAMME": PRINT : HTAB 8: PRINT "EN TOUTE SECU 
NN): GOTO 270 RITE": PRINT 
450 IF FR = 10 THEN VTAB 19: HTAB 21: PRINT G$G$G 660 PRINT "APPUYER SUR RESET PUIS TAPER ‘Fp'.m 
SCH$ (NN): FOR K = 1 TO 500: NEXT K: VTAB 19: H 670 END 
LA LA 
Fichier 8B80- 00 00 00 00 00 00 00 00 8C48- 03 03 00 00 00 00 00 00 
£ 3 8B88- 00 00 00 00 00 00 00 00 8C50- 00 00 60 F8 FC FE 7E 00 
ANIMAUX.SET 8B90- 00 00 00 00 00 00 00 00 8C58- 00 00 7F 7F 7F ?F 7F 00 
8B98- 00 00 00 00 00 00 00 00 8C60- 00 00 00 03 87 8D 8F 00 
Après avoir saisi ce code sous 8BAO- 00 00 00 00 00 00 00 00 8C68- 00 00 00 00 00 00 02 FD 
moniteur, vous le sauvegarderez par 8BA8- 00 00 00 00 00 00 00 00 8c70- 79 78 38 38 38 38 00 7F 
BSAVE ANIMAUX.SET,AS$8AFF,L$300 8BB0- 00 00 00 00 00 00 00 00 8c78- 7F 7F 7F 60 60 60 00 8F 
8BB8- 00 00 00 00 00 00 00 00 8C80- 7B 31 01 01 01 01 00 01 
8AFF- 00 8BCO- 00 00 00 00 00 00 00 00 8C88- 00 00 00 00 00 00 00 00 
8B00- 00 00 00 00 00 00 00 00 8BC8- 00 00 00 00 00 00 00 EO 8C90- 00 40 60 70 78 7E 79 A2 
8B08- 00 00 00 00 00 40 70 00 8BD0- EO0 60 F8 BE OF 01 00 01 8C98- 24 3C 5A 3C 9C 18 18 00 
8B10- 00 00 40 60 20 7F 7F 00 8BD8- 81 01 00 00 00 00 00 42 8CA0- 00 00 00 00 00 78 7C 18 
8B18- 00 00 31 71 5B 7F 7F 7C 8BEO0- 64 38 64 42 00 00 00 03 8CA8- 18 18 18 1C 1E 1F 8F 7E 
8B20- 7E 7F 7F 7E 7C 74 14 7F 8BE8- 07 7F 7F 03 00 00 40 00 8CB0O- 7D 7D OC OC 0C OC 84 0F 
8B28- 7F 7F 7F 7F 7F 2F 40 6E 8BF0- 00 00 01 03 83 03 81 00 8CB8- 07 07 06 06 06 06 82 00 
8B30- 31 1F 00 00 00 01 02 00 8BF8- 00 00 00 00 00 00 00 00 8CC0- 00 00 00 00 00 60 78 00 
8B38- 00 78 FE 06 FE 78 00 60 8C00- 00 00 00 00 00 00 00 00 8CC8- CO 40 EO 40 43 5F 7F 00 
8B40- 70 39 1F 0E 8F 3D 70 01 8C08- 00 30 78 7C 7E FF 7F 00 8CD0- 01 03 0E 07 01 01 01 00 
8B48- 00 00 00 00 00 80 00 00 8C10- 00 00 00 01 81 C1 43 84 8CD8- 00 00 00 00 00 00 00 00 
8B50- 01 01 03 06 7C 78 00 00 8C18- OC 1C 3E BF 7F 7F 3F FF 8CE0- 00 00 00 00 00 00 00 00 
8B58- 00 00 00 00 00 00 00 00 8C20- EF 4E C6 00 00 00 00 E3 8CE8- 00 00 00 00 00 00 00 00 
8B60- 00 00 00 00 00 00 00 00 8C28- 67 F7 FF 7F FF 7E FE 1F 8cF0- 00 00 00 00 00 00 00 00 
8B68- 00 00 00 00 00 00 00 00 8C30- OF 0F 8F 9F 37 B3 03 00 8CF8- 00 00 00 00 00 00 00 00 
8B70- 00 00 00 00 00 00 00 00 8C38- 00 00 00 00 00 00 00 7C 8D00- 00 00 00 00 00 00 00 7C 
8B78- 00 00 00 00 00 00 00 00 8C40- FC 78 00 00 00 00 00 03 8D08- 78 60 40 40 CO 00 00 7F 
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Il s'agit d'un système graphique Vous avez un Apple [le avec Chat Mauve ou un lc ? 
double-haute résolution écrit en Vous avez Pascal 1.2 ? 
Pascal. COGO vous permet de 
manipuler des graphiques 
grâce à un langage de 


description des objets - points, Utilisez 


angles- et à l'emploi de 
fonctions primitives de 


manipulation très puissantes : 
cercle, tangente, Par Nicolas Montsarrat 
intersections, parallèles, etc. II 


est ainsi possible de tracer des 
grilles, des cercles, des Apple //e, /le | 
segments de droite, ds | 
tangentes communes à deux 
cercles, de calculer des 


distances, des angles. Ce programme, destiné à résoudre 


des problèmes de géométrie plane, 
L'éditeur permet une saisie  COMPOrte des instructions de stockage 
rapide du langage. Une SU fichier afin de permettre la reprise 


instruction COGO peut-être d'un calcul. 

exécutée dès la saisie pour | 
faciliter la mise au point, ou au 
sein d'un programme. 





150,00 F TTC, franco | 
Bon de commande page 74 





8D10- 3F 1F 07 04 84 09 00 00 8DD8- 00 00 00 00 00 00 00 00 6748- 00 00 00 00 00 00 00 00 | 
8D18- 00 00 00 00 00 00 00 00 8DE0- 00 00 00 00 00 00 00 00 6750- 00 00 00 00 00 00 00 00 | 
8D20- 00 00 00 00 00 00 00 00 8DE8- 00 00 00 00 00 00 00 00 6758- 00 00 00 00 00 00 00 00 | 
8D28- 00 67 6F 7F 7F 7F 7F 00 8DFO0- 00 00 00 00 00 00 00 00 6760- 00 00 00 00 00 00 00 00 
8D30- 00 00 01 03 86 1F 3F 06 8DF8- 00 00 00 00 00 00 00 6768- 00 00 00 00 00 00 00 00 
8D38- OA 12 22 4A 42 44 48 22 6770- 00 00 00 00 00 00 00 00 
8D40- 14 08 1C 3E 3E 3E 3E 30 6778- 00 00 00 00 00 00 00 00 
8D48- 28 24 22 29 21 11 09 44 - 1 6780- OF iF 1F OF 07 07 07 07 
8D50- 42 4A 22 12 OA 06 00 3 Fichier 6788- 60 60 60 60 60 60 60 70 
. 8D58- 3E 1C 08 00 00 00 00 11 £ 3 6790- 06 06 0E 1C 38 70 30 10 
8D60- 21 29 22 24 28 30 00 00 BONHOMME.SET 6798- 00 30 78 78 78 30 70 78 
8D68- 00 00 00 00 CO CO 00 00 67A0- 00 00 00 00 00 00 00 03 
8D70- 12 9B 3F 2D BF BF 3F 00 Après avoir saisi ce code sous moniteur, 67A8- 00 00 00 40 60 20 00 00 
: 8D78- 00 00 00 00 40 40 40 1E vous le sauvegarderez par BSAVE 67B0- 7C 7E 73 71 70 70 70 70 
8D80- OC 1E 3F 3F 7F 7F 7F 40 BONHOMME.SET,A$6700,L$300 67B8- 07 OF OD OD 0G OD 05 01 
8D88- 40 40 00 00 00 20 40 7F 67C0- 78 38 78 70 70 30 30 38 
8D90- 7F 3F 3F 1F 0E 08 07 O0 6700- 00 00 00 00 00 00 00 00 67C8- 00 00 00 01 07 06 06 00 
8D98- 00 00 00 CO CO CO 00 00 6708- 00 00 00 00 00 00 00 00 67D0- 00 00 00 00 00 00 00 00 
8DAO- 00 01 03 87 1D 3F 07 00 6710- 00 00 00 00 00 00 00 00 67D8- 00 00 00 00 00 00 00 00 
8DA8- 40 60 60 70 70 78 78 03 6718- 00 00 00 00 00 00 00 00 67E0- 00 00 00 00 00 00 00 00 
8DB0O- 07 07 OF 8F 57 27 07 78 6720- 00 00 00 00 00 00 00 00 67E8- 00 00 00 00 00 00 00 00 
8DB8- 7C FA 7A 99 8D 79 60 07 6728- 00 00 00 00 00 00 00 00 67F0- 00 00 00 00 00 00 00 00 
8DCO- 03 03 01 00 00 00 83 00 6730- 00 00 00 00 00 00 00 00 67F8- 00 00 00 00 00 00 00 00 
8DC8- 00 00 00 06 0C 58 FO 00 6738- 00 00 00 00 00 00 00 00 6800- 00 00 00 00 00 00 00 00 
8DDO- 00 00 00 00 00 00 00 00 6740- 00 00 00 00 00 00 00 00 6808- 00 OC IE 1E IE OC 7F ?F 
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SE 
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1000 REM ***PAGE2 


1010 PRINT CO$CB$CO$CDS$S 


1020 W=5 

1030 FOR K = 1 TO NN 

1040 X = 34:Y = 10 

1050 I = 0: GOSUB 2000:I = 1: GOSUB 2000:X = X - 1: 


I = 2: GOSUB 2000: IF X > 4 * (K - 1) + 1 THEN 
1050. 
IF K < NN AND NN < > 2 THEN VTAB 10: HTAB 4 
* K: PRINT VV$; 
1070 IF K < NN AND NN = 2 THEN VTAB 10: HTAB 4 * 
K + 1: PRINT VV$; 
1080 VTAB 5: HTAB 4 * (K - 1) + l: PRINT CH$(K) 
1090 IF K > 1 THEN FOR L = 1 TO K - 1: VTAB 5: HT 
AB 4 * (K - 2) + 1: PRINT VVS: NEXT L 
1100W=W+5 
1110 NEXT K 
1120 IF NN = 2 THEN VTAB Y: HTAB X + 4: PRINT BO$ 
(4): GOTO 1140 
VTAB Y: HTAB X + 3: PRINT BOS$(4) 
FOR W = 1 TO 500: NEXT W 
PRINT CO$CA$SCOSCDSCOS$CBS: FOR I = 4 TO 13: VT 
AB I: PRINT CE$: NEXT I: PRINT CO$CAS$ 
1160 RETURN 
2000 VTAB Y: HTAB X:GG = 
NS(NN);: VTAB Y: PRINT BOS$(I);: 
: NEXT : RETURN 
3000 REM #*** EFFETS SONORES 
3010 FOR I = O0 TO 49: READ SO: POKE 768 + I,S0: NE 
Xv TI 


1060 


1130 
1140 
1150 


PEEK ( - 16336): PRINT À 
FOR J=1TONW 


3120 FOR I = 1 TO 9: FOR J = 0 TO I - 1: READ CO(I 
2 * J): READ CO(I,2 * J + 1): NEXT J: NEXT I 
DATA 3,19 

DATA 6,11,6,27 

DATA 6,11,3,19,6,27 

DATA 8,7,4,15, 4,23, 8, 31 

DATA 11,5,6,11,3,19,6,27,11,32 

DATA 8,7,6,11,4,15, 4,23, 6,27, 8, 31 

DATA 8,7,6,11,4,15,3,19, 4,23, 6,27,8, 31 

DATA 11,5,8,7,6,11,4,15,4,23,6,27,8,31,11, 33 
DATA 11,5,8,7,6,11,4,15,3,19,4,23,6,27,8,31,1 
1,233 

RETURN 

REM *** CHAPEAU & ETOILES 
4010 HCOLOR= 5 
4020 FOR Y = 100 TO 140: HPLOT 120,Y TO 145,Y: NEX 
4030 FOR Y = 96 TO 99: HPLOT 110,Y TO 155,Y: NEXT 
4040 VTAB 4: HTAB 2: PRINT "*": VTAB 5: HTAB 38: P 
RINT "*": VTAB 6: HTAB 6: PRINT "*": VTAB 3: H 
TAB 35: PRINT "*": VTAB 5: HTAB 9: PRINT "*": 
VTAB 7: HTAB 39: PRINT "*#" 

RETURN 

REM *** INITIALISATIONS 

ONERR GOTO 6010 
5020 TEXT : HOME : HGR :ADRS = 0 
5030 PRINT CHR$ (4)"BLOAD RBOOT": CALL 520 
5040 ADRS = USR (0), "HRCG" 
5050 POKE 216,0 
5060 IF ADRS < O0 THEN ADRS = ADRS + 65536 
5070 CS = ADRS - 3 * 768: HIMEM: CS 


3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 


3220 
4000 


4050 
5000 
5010 





3020 DATA 169,0,133,24,169, 5,133 
3030 DATA 25,169,1,133,26,164,25 5080 D$ = CHR$ (4) 
3040 DATA 165, 26, 32, 34,3, 73,255 5090 PRINT D$"BLOAD ANIMAUX.SET, A";CS 
3050 DATA 73,208, 32, 34, 3 5100 PRINT D$"BLOAD GROS.CHIFFRE.SET,A"CS + 768 
3060 DATA 136, 208, 241, 230 5110 PRINT D$"BLOAD BONHOMME. SET, A"CS + 2 * 768 
3070 DATA 26,16,235, 96,44,48, 192 5120 CH = INT {CS F 256) :CL = CS - CH * 256 
3080 DATA 166,24,134,27, 170,202 5130 POKE ADRS + 7,CL: POKE ADRS + 8,CH: CALL ADRS 
3090 DATA 208,253,198,27,16,248 +3 
3100 DATA 96 5140 RETURN 
3110 REM *** POSITION DES ANIMAUX 6000 REM *** TRAITEMENT ERREUR 

6010 TEXT 
6810- 7F 3F 3F 3F 1E 3F 3F 3F 68D8- 00 00 00 00 00 00 00 00 DbG 
6818- 33 33 33 33 33 33 33 73 68E0- 00 00 00 00 00 00 00 00 Dé DéG 
6820- 00 00 00 00 00 00 40 60 68E8- 00 00 00 00 00 00 00 00 DÉC 
6828- 70 30 30 30 30 30 30 20 68F0- 00 00 00 00 00 00 00 00 Dé DéG DéG 
6830- 00 00 00 00 00 00 00 40 68F8- 00 00 00 00 00 00 00 00 
6838- 00 00 00 00 00 00 00 01 6900- 00 00 00 00 00 00 00 00 DÈG NU DéG 
6840- 03 03 03 03 03 03 03 01 6908- 00 18 3C 3C 3C 18 1C 3E if 


D a. ( u 
1) 





Pom's n° 26 





tel 


6020 PRINT "ERREUR DANS RLOAD OU RBOOT" 
6030 POKE 216,0 7270 BOS(0) = CBS + CASE 23e SELS" S " + CCS + 
6040 END "TU "+ CCS + EVN + CDS + CAS Æ "0" 
7000 REM *** DEFINITION DES 7180 BO$(1) = CBS + CAS + "3" + CLS + "XY " + CCS + 
7010 REM *** FIGURINES "20, °F CCS ÆE 12 » Æ CDS + CAS F 0° 
7020 AN$(1) = CAS + "l" + CBS + "ABC" + CCS + "DEF" 7190 BO$(2) = CB$ + CA$ + "3" + CL$ + " 34" + CC$ + 
+ CCS + "GHI" + CDS + CAS + "O" "567% + CCS + " 89" + CDS + CAS + "0" 
7030 ANS(2) = CAS + "l" + CBS + "JKLM" + CCS + "NOP 7200 BO$(3) = CBS + CAS + "3DAG" + CC$ + "EBH" + CC 
Q" + CDS + CAS + "O0" $ + "EC ® + CD$ + CAS + "0" 
7040 ANS(3) = CAS + "1" + CBS + "R" + CHRS (101) + 7210 BO$(4) = CBS + CAS + "3PAG" + CC$ + "MBH" + CC 
CHRS (102) + CDS + CAS + "O" n PORC 7 CDS ICS" TE F0" 
7050 ANS(4) = CAS + "Im + CBS + M" S M + CCS + "TU 7220 BO$S(5) = CBS + CAS + "3OAG" + CC$ + "MBH" + CC 
+ CCS + MVW " + CDS + CAS + "Om" SSÉCAFC "+ CDS CAS +, 0" 
7060 ANS$S(5) = CAS + "1" + CBS + "XYZ" + CCS + CHRS 7230 BO$(6) = CBS + CAS + "3NAG" + CCS + "MBH" + CC 
(97) + CHR$ (98) + " "+ + CDS + CAS + "On" HEC + CDS FO FE UP 
7070 AN$S(6) = CA$ + "1" + CB$ + CHR$ (103) + CHRS$S 7240 RETURN 
(104) + CHRS (105) + CC$ + CHRS (106) + CH 8000 REM *** INITIALISATIONS 
R$ (107) + CHR$ (108) + CD$ + CAS + "O" 9010 REN *** APPLESOFT 
7080 AN$(7) = CAS + "1" + CBS + CHRS (109) + CHRS 8020 CA$ = CHR$ (1):CB$ = CHR$ (2):CC$ = CHRS$ (3 
(110) +" + CCS + CHRS$S (111) + CHR$S (112) ) : CDS = CHR$S (4):CES$ = CHR$S (5):CF$ = CHRS 
Fm + CCS + CHRS (113) + CHRS (114) £a: (6) :CIS$S CHR$S (3) 2CK$ > CHR$S (11) :CL$ = CH 
R$ (12):CN$ = CHR$ (14):CO$ = CHR$ (15) :CP$ 


+ CD$ + CA$ + "O0" 


7090 AN$S(8) = CA$ + "1" + CB$ + " " + CHR$S (115) + 


CHR$ (16):CS$ = CHR$ (19):CT$ = CHR$ (20) 





CHRS (116) + CCS + M "+ CHRS (117) + cars 8030 CV$ = CHR$ (22):CW$ = CHRS (23):CY$ = CHR$ 
(118) + CCS + CHR$ (121) + CHRS (119) + CH PRITRRS EURE 
D nai re 0e ing 8040 P1$ = CO$ + CAS:P2$ = CO$ + CBS:PTS = CO$ + CT 
$:PN$S = CO$ + CPS | 
7100 ANS(9) = CAS + "1" + CBS + "I!" + CHRS (34) + 8050 KB = - 16384:G$ = CHR$ (7) 
MA" + CCS + "$8a" + CD$ + CA$ + "O" 8060 PRINT CP$SCK$S: HTAB 11: VTAB l: PRINT " LE CHA 
7110 VVS = CBS + " "+HCCSTF" *RICCRTE PEAU MAGIQUE " 
" + cD$ 8070 HCOLOR= 1: HPLOT 0,0 TO 0,191 TO 279,191 TO 2 
7120 FOR I = 1 TO 9 79,0: HPLOT 1,0 TO 1,190 TO 278,190 TO 278,1: 
7130 J=6* (I - 1) HPLOT 1,0 TO 66,0: HPLOT 1,1 TO 66,1 
7140 CH$(I) = CA$ + "2" + CB$ + CHR$ (33 + J) + C 8080 HPLOT 214,0 TO 279,0: HPLOT 214,1 TO 278,1 


CHR$ (35 + J) + CHR$ (3 
CHR$ (38 + J) 


HR$ (34 + J) + CCS + 
6 + J) + CC$ + CHRS$S (37 + J) + 
F CDS + CAS + "0" 


8090 HCOLOR= 5: HPLOT 70,9 TO 210,9 
8100 POKE 230,64: HCOLOR= 6: HPLOT 1,1: CALL 62454 
: POKE 230, 32 





7150 NEXT I 8110 PRINT CO$CB$S: FOR I = 4 TO 13: VTAB I: PRINT 
7160 CH$(0) = CAS + "2" + CBS + "WX" + CCS + "YZ" + CES: NEXT I: PRINT CO$CAS 
CC$ + CHR$ (91) + CHRS (92) + CDS + CAË + "  g120 RETURN 

Fichier 8B70- OF 8E 9C B8 F8 70 70 00 8C38- 00 00 00 CO 78 FC 7C 8E 
5 8B78- 00 00 60 60 00 00 00 70 8C40- 0E 87 07 83 1F 8F OF FO 

GROS.CHIFFRES :250- 38 1c or 07 1c 38 70 00 8c48- 70 B8 38 9C 1C &E 0E 60 
SET’ 8B88- 84 86 06 86 OC 78 60 70 8C50- 00 00 00 00 00 00 00 78 
= 8B90- 70 F8 B8 9C 8E OF 03 00 8c58- 7C 8F OF OF OF OF OF 0F 

8B98- 40 EO 60 FO 70 B8 38 00 8C60- 1F BC 78 F8 F8 F8 78 8F 
Après avoir saisi ce code sous moniteur, 8BAO- 00 00 00 00 00 00 00 9C 8C68- 1E FC 7C FE 1E 8F OF BC 
vous le sauvegarderez par BSAVE 8BA8- 1C 8E 0E 87 07 07 07 00 8C70- 3C 8F 8F 9F BC 78 F8 0F 
GROS.CHIFFRES.SET,A$8AFF,L$200 8BB0- 00 00 00 00 07 07 07 7F 8Cc78- OF OF 8F 1E 7C 78 70 F8 
8BB8- 7F 7F 00 00 00 00 00 7F 8C80- F8 F8 78 3C 1F OF 07 FC 

8AFF- 00 8BCO- 7F 7F 07 07 07 07 07 7F 8Cc88- 7C FE 1E 8F OF OF OF 87 
8B00- 00 00 00 00 00 00 00 40 8BC8- 7F 7F 07 07 07 07 07 3F 8C90- 8F 9F BC 78 F8 F8 F8 0F 
8B08- 40 EO 60 BO 30 98 18 07 8BDO- 3F 3F 00 00 00 00 00 07 8C98- 8F 1E 7C 78 70 00 00 F8 
8B10- 07 07 07 07 07 07 07 &C 8BD8- 07 07 07 7F 7F 00 00 00 8CA0- 78 BC 3F 9F 1F 8E 0E 00 
8B18- 0C 86 06 00 00 00 00 07 8BE0- 00 00 00 87 8F 1C 9C 00 8CA8- 00 CO 40 EO 60 F0 00 87 
8B20- 07 07 07 07 07 07 07 00 8BE8- 00 00 07 87 8E FC 70 38 8CB0- 07 83 03 81 01 80 00 FC 
8B28- 00 00 00 00 00 00 00 07 8BFO0- 38 38 38 38 9C 8F 07 00 8CB8- 7C FE 1E 8F OF OF OF 87 
8B30- 07 07 07 07 07 07 07 60 8BF8- 00 CO 40 EO 60 FO 70 00 8CC0- 8F 9F BC 78 F8 F8 F8 0F 
8B38- 78 7C 86 06 06 06 06 03 8C00- 07 83 03 81 01 80 00 B8 8CC8- OF OF OF OF OF OF OF F8 
8B40- 0F 1F 9C B8 70 70 70 00 8C08- 38 FC 7C FE 1E 8F 0F 00 8CDO- F8 F8 F8 F8 F8 F8 F8 8F 
8B48- 00 00 00 40 60 70 78 B8 8C10- 00 87 8F 9F BC 78 F8 OF 8CD8- 1E FE 7C FC 00 00 00 78 
8B50- 38 9E 8F 87 83 01 00 3C 8C18- OF OF 8F lE 7C 78 70 F8 8CE0- BC 9F 8F 87 00 00 00 00 
8B58- 9E 1E 8F OF 7F 7F 7F 00 8C20- F8 F8 78 3C 1F OF 07 7F 8CE8- 00 00 00 00 00 00 00 00 
8B60- 00 00 00 00 7F 7F 7F 60 8C28- 7F 7F 00 00 00 00 00 7F 8CF0- 00 00 00 00 00 00 00 00 
8B68- 78 OC 86 06 86 84 00 03 8C30- 7F 7F 70 B8 38 9C 1C 00 8CF8- 00 00 00 00 00 00 00 
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Les courbes de Lissajous sont 
des figures que l'on peut obtenir 
sur l'écran d'un oscilloscope, en 
y faisant entrer deux courants 
alternatifs simultanément, mais 
l'un par l'entrée horizontale et 
l'autre par l'entrée verticale. 
L'effet obtenu dépend du rapport 
des deux fréquences, ainsi que du 
déphasage entre les deux 
courants. 

Afin d'accélérer le tracé de cette 
courbe, le cercle trigonométrique 
est divisé ici en 256 parties ( au 
lieu de 2 x ) puis, en Basic, les 
sinus et cosinus de chaque angle 
sont calculés et ramenés aux 
coordonnées possibles de chaque 
point sur l'écran de l'Apple, puis 
stockés dans une table en 
mémoire. Cette pratique est très 
courante. 


Le programme assembleur écrit 
en Tool-Kit est lui-même 
documenté, il suffit d'ajouter que 
le paddle O fait varier rapidement 
le déphasage entre les deux 
courants (effet de rotation 
horizontale plus rapide ), alors 
que le paddle 1 détermine le 
rapport des fréquences, toujours 
entre les deux courants. Il 
entraîne le changement de la 
forme de la courbe, du simple 
trait horizontal, à une sorte de 
couronne royale, en passant par 
le cercle dans le cas de 2 courants 
de même fréquence. Ce rapport 
est limité à 16 afin de conserver 
une définition suffisante à la 
courbe (sous moniteur, remplacer 
les LSR par des NOP 4A = EA 
pour vous en convaincre). 


Quand la vue de ces courbes aura 
atteint son effet hypnotique 
maximum, vous pourrez toujours 
vous endormir après avoir 
appuyé sur ESC pour arrêter le 


programme. 
G 


Fichier 
‘LISSAJOUS.DATA’ 


Ce fichier binaire est une liste de 
sinus et cosinus que vous obtiendrez 
en lançant l'exécution du programme 
Basic LISSAJOUS.FAIT DATA 


Comment faire ? 





1 
créer le fichier 
LISSAJOUS.DATA en lançant 
l'exécution de LISSAJOUS.FAIT 
DATA (si vous ne disposez pas de 
la disquette Pom's) 
2 
saisir et sauvegarder l'objet 
LISSAJOUS.OBJ. 
3 
faire RUN LISSAJOUS.BAS. 
4 
régler fréquence et phase à l'aide 
des paddles. 


Programme 
‘LISSAJOUS.FAIT 
DATA’ 


O0 HIMEM: 20000:A 
A + 256:PI2 = 
) 

20 FOR T = 0 TO 255:J = PI2 
* I / 256: PRINT I, 

DT LPORE À + T,95: +095: % SIN 

(J) : PRINT PEEK (A + I}, 

22  BOKE B + 1,142 + 86 * CO 
S (9) : PRINT  PEEK {(B + I) 

26 NEXT I: PRINT CHR$ (4)"B 
SAVE LISSAJOUS.DATA,A"A",L 
512" 


20000:B = 
* 


8 ATN (1 








Norbert Vurlod 


Programme 
‘LISSAJOUS.BAS” 


10 PRINT CHR$ (4)"BLOAD 
LISSAJOUS.DATA, A$6000" 

20 PRINT CHR$ (4)'"BRUN LI 
SSAJOUS . OBJ" 





Récapitulation 
‘LISSAJOUS.OBJ' 


Après avoir saisi ce code sous moniteur, 
vous le sauvegarderez par BSAVE 
LISSAJOUS.OBJ,A$300,L$9E 


0300- A9 00 85 07 85 08 A9 20 
0308- 85 E6 A9 55 8D 32 03 20 
0310- F2 F3 2C 54 CO 2C 52 CO 
0318- 2C 57 CO 2C 50 CO A2 03 
0320- 20 EC F6 A9 60 45 E6 85 
0328- E6 A9 01 4D 32 03 8D 32 
0330- 03 2C 00 CO 20 F2 F3 A2 
0338- 00 20 1E FB 98 18 65 07 
0340- 85 09 AA BD 00 60 AO 00 
0348- AE 00 61 20 57 F4 A9 00 
0350- 85 08 A2 01 20 LE FB 98 
0358- 4A 4A 4A 4A 85 18 A5 09 
0360- 18 65 18 85 09 AA BC 00 
0368- 60 A6 08 BD 00 61 A2 00 
0370- 20 3A F5 20 CB F5 E6 08 
0378- DO E4 A6 09 BC 00 60 A2 
0380- 00 AD 00 61 20 3A F5 20 
0388- CB F5 AD 00 CO C9 9B FO 
0390- 06 E6 07 DO 8E FO 8C 2C 
0398- 10 CO 20 2F FB 60 
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Source ‘LISSAJOUS.SRCE”’ 


Assembleur Tool-Kit 


FH kb bb be ke ba kb ps 
© © y o 1 à ON OS Lo © y M OU ON) 


D D 4 ON D D OS À AS LG W LOU WW  & W & U NON NO NN ND ON N° ND NO N 
© © + où Un ON MS Lo © a U à ON M © © © a Un & N HS 


50 


Oo OO Un Un Un OU OU Un Un En 
FH © o © y Oo Un 4 ON) 


62 


ORG $300 


RRARRARRRRRRRRÉRRRRRRRRRRRRRRÉRRRRRRRRRRÉÉRÉRÉ 
* COURBE DE LISSAJOUS 
RRARRRRRRRRÉRRRRRÉRRRÉRRRRRRÉRRRRRÉ 

* 


* 


ANGLE1 EQU $07 ; DESSINE LA COURBE 
ANGLE2 EQU $08 ; ROTATION HORIZONTALE 
ORD EQU $09 


RAP.FREQ EQU $18 


* 


HCLR EQU $r3F2 
PREAD EQU $FBI1E ; LECTURE PADDLE 
HLIN EQU $F53A 


* 
RRARRRRRARRRRARRRRRRRRRRRRÉRRÉRRRRRÉRÉRRÉÉRÉÉÉ 
* INITIALISATIONS 
KRRARRÉRRRRRÉRRRÉRÉRRÉRÉRRÉRRÉRÉRRRÉRRRRÉRÉRRÉRRRRÉ 


* 


LDA #$00 

STA ANGLE1 

STA ANGLE2 
* 

LDA #$20 ; TRACE EN P.1 

STA $E6 

LDA #$55 ;VISU DE P.2 

STA PAGE 

JSR  HCLR ;EFFACE LA PAGE HGRI 
* 

BIT $CO54 ;COMMUTE P.1 

BIT $CO52 :MODE NON MIXTE 

BIT $C057 :HIRES 

BIT $CO50 ;MODE GRAPHIQUE P.1 
* 

LDX #$03 

JSR $F6EC : HCOLOR=3 


* 
M A HE EE 
* PROGRAMME PRINCIPAL 

RAR RRARARARARRÉRÉÉÉRÉÉ AE ÉÉÉ ER R AR AK É 


* 


BOUCLEl EQU * 


LDA #$60 

EOR $E6 ; CONTIENT $20 OU $40 

STA $E6 ; POUR P.1 OU P.2 

LDA #$01 ; TRACE SUR UNE PAGE 

EOR PAGE ; PENDANT QUE L'AUTRE 

STA PAGE :EST AFFICHEE... 

BIT $CO000 ; ( $CO54 OU $C055 ) 
PAGE EQU *-2 

JSR HCLR ;:EFFACE LA PAGE CACHEE 

LDX #$00 ; LECTURE DU 

JSR PREAD ;PADDLE 0 

TYA 

CLC 

ADC ANGLEI 

STA ORD 

TAX ; TRACE DU 

LDA TAB.SIN,X ; PREMIER 

LDY #$00 ; POINT 

LDX TAB.COS 

JSR $r457 ;: HPLOT X,Y 


; RAPPORT DES FREQUENCES 





75 


77 


94 


#$00 
ANGLE2 


#$501 
PREAD 


; LECTURE DU 
;PADDLE 1 


; DIVISION 
:PAR 16 DE 
;PDL(1) 


b 
% 
D D D 


STA RAP.FREQ ;MAXIMUM 16 PICS 


RARARRRARARARRRRRRRRRÉARRRRRRÉARRARÉRRRÉREÉ EX 


* TRACE DE LA BOUCLE 


RRRRRRRRÉRÉRÉRÉRÉRÉRÉRÉRRÉRRÉRÉRRÉRRÉRRRRRÉRRRRRÉRRÉRRÉ 


BOUCLE2 EQU * 


TAB.SIN,X 
ANGLE2 
TAB.COS,X 
#$00 

HLIN 
$F5CB 
ANGLE2 
BOUCLE2 


; HPLOT TO X,Y 
:REINITIALISATION HGR 


* 
* 


RÉRRRRRRÉRRÉRRÉRRÉRRÉRÉRÉRRRRRRÉRRARRRARAARRRÉ EEE A 


* FERME LA BOUCLE 





936 RRRRRRRRRRÉRRÉRRÉRRRRÉRRRRÉRÉRÉRÉRRRÉRRRÉÉRÉRRÉRÉ RÉ 


97 LDX ORD 112 FIN EQU 
98 LDY TAB.SIN,X 113 BIT 
99 LDX #$00 114 JSR 
100 LDA TAB.COS 115 RTS 
101 JSR HLIN 216 * 
102 JSR $F5CB ‘INIT HIRES 
103 * 
104 LDA $CO000 TEST CLAVIER 
105 CMP #128+27 ; TOUCHE ESC 120 DSECT 
106 BEQ FIN 121 ORG 
207 * 122 TAB.SIN DS 
108 INC ANGLEI1 123 TAB.COS DS 
109 BNE BOUCLEI1 ; ON RECOMMENCE 124 DEND 
110 BEQ BOUCLE1 


111 # 





* 


$co10 
$FB2F 


:RAZ CLAVIER 
; TEXT 


D A er à RRARRRRRRRRRÉRRÉRRÉRRRRRRRÉRRÉRRRRRRRÉRRÉRÉRRÉRER 


118 * TABLE DES SINUS ET DES COSINUS 


119 RRARARRRRRRRÉRRRRRRÉRRRRÉARRRRARRRRRARRARÉRRÉ 


$6000 
$100 
$100 





Courrier des Lecteurs 


FORMAT (numéro 23) 


Avez-vous essayé de répondre MON 
TITRE dans l'option &T du programme 
FORMAT de Pom's 23 ? Sous DOS 
3.3, le DOS intercepte la saisie comme 
une commande et envoie donc un 
SYNTAX ERROR. Je ne parle pas des 
conséquences avec un litre tel que 
INITIALES... 
Les 54 octets du patch ci-dessous 
éliminent ce petit problème. En bonus, 
j'ai rajouté quelques octets pour une 
gestion complémentaire des codes de 
contrôle : 
CTRL-D inséré par exemple dans un 
programme sera listé D. 
BLOAD FORMAT 
CALL-151 
94AB:F0 7 4C 18 95 A9 O0 FO 2 A9 

20 85 CE A9 3 85 CF 20 F8 94 
94BF:A2 BF 86 33 A9 FF C5 76 DO 

2 86 76 A5 38 48 A5 39 48 
94D1:A9 El 85 38 A9 3 85 39 20 

6A FD E0 21 B0 22 EA 
956E:60 
9581:60 
959D:60 
93B6:C9 20 B0 11 69 40 48 A9 5E 

20 D4 93 68 
93C3:EA EA EA EA EA EA EA EA 
UNLOCK FORMAT 
BSAVE FORMAT, A$90D1, L$527 
Ce patch tourne comme un fichier Exec 
(FORMAT.PATCH sur la disquette 
Pom's), à n'utiliser bien sûr que sur une 
version de sauvegarde... Il ne 
fonctionne que pour la version DOS 3.3 
du programme. Son adaptation à 
ProDOS ne devrait pas vous poser de 
problèmes. 


Yvan Koenig, 06220 Vallauris 





CQFD 

J'ai de gros problèmes pour faire 
fonctionner le programme de conversion 
CQFD paru dans le numéro 16 de 
Pom's, malgré des tentatives sur 
ProDOS 1.0 et 1.1.1. 


Docteur Gérard Lacurie 
13112 LA DESTROUSSE 


Voici les deux lignes à modifier: 


117 IF PEEK(48896) <> 76 THEN FLASH : 
PRINT "VOUS N'ETES PAS SOUS PRODOS!": 
NORMAL : END 
6021 POKE 811,163 : POKE 812,154 
Cette dernière ligne appelle une routine 
du Basic.System en $9AA3, auparavant 
située en S9AAF, qui transfère les 
adresses $BE34-BE38 vers $36-39. Par 
manque de place (il faut faire "cohabiter" 
les deux DOS en mémoire), elle ne 
pouvait être incluse dans le programme 
CQFD.B, d'où des problèmes lorsque 
ProDOS évolue. 





AppleWriter et *” 


Quelques mots pour vous indiquer le 
moyen de modifier AppleWriter 
ProDOS pour qu'il tienne compte des * 
et ‘en justification totale. À l'aide d'un 
éditeur de secteur, il convient de 
modifier les zones comme indiqué 
ci-dessous : 
Piste 00, Secteur OA, Octet 2A 
mettre 5SB au lieu de 19 
Piste OF, Secteur OF, Octet E9 
mettre 4C 20 60 EA EA 
Piste 10, Secteur 00, Octet 09 
mettre 4C 40 60 
Piste 11, Secteur 09, Octet 20 
mettre CD DE B8 DO 03 4C F5 
49 C9 08 FO 03 4C EE 49 E6 
75 E6 75 C4 75 FO 03 4C A8 
49 4C 05 4A EA EA EA A4 75 
B9 00 1C C9 20 F0 OD C9 08 
FO 03 88 DO F2 C6 75 C6 75 
EA EA A4 75 4C EF 4B 00 
Cette modification convient pour les 
Apple lle 6502 & 65C02 ; elle intervient 
sur le programme AWD.SYS. 


Michel DUROC, 97220 Trinité 


Voici une solution non ambigué des 
accents qui posent bien des 
problèmes inélégants même au mois 
d'août, Faire un essai sur une 
copie est une bonne précaution... 


Snake 


J'aurais souhaité utiliser le jeu Snake 
(numéro 24 de Pom's) avec de jeunes 





enfants et, pour cela, réduire la vitesse 
de déplacement du serpent. Philippe 
Krepper pourrait-il me fournir une 
méthode qui éviterait un réassemblage ? 


Yves Robert, 36000 Châteauroux 


1ère solution 
Programme SNAKE.FUSION : 
supprimer de la ligne 50 le 
PRINT D$"BSAVE"F$",A973,L3111" 
et ajouter : 
60 DATA 169,15,133,213, 32, 79,15 
198,213,208,249,234 
70 FOR L = 0 TO 11: READ A: POKE 
3672 + L,A: NEXT 
80 PRINT D$"BSAVE"F$",A973,L3111" 
La valeur 15 de la ligne 60 est a 
déterminer expérimentalement : plus elle 
est grande, plus le serpent ralentit. 
2ème solution 


Elle nécessite un assembleur mais 
permet de faire varier à loisir la vitesse : 


Insérer après la ligne 477 : 

(1478) 

478 RALENT INC BCLO4+1 

479 RTS 

480 ACCELR DEC BCL04+1 

481 BEQ RALENT 

482 RTS 

(CTRL E) 

Insérer après la ligne 466 : 

(1467) 

467 CMP #$C1 ; "A" 
468 BEQ ACCELR 

469 CM #$D2 ; "R" 
470 BEQ RALENT 
(CTRL E) 

Remplacer les lignes 338 à 346 par : 
(M338, 346) 

338 BCLO04 LDA #$F 

339 STA  $D5 

340 BCLO5 JSR LITSNS 

341 DEC $D5 

342 BNE BCLOS5 

(CTRL E) 

Ensuite, assembler le programme et le 
sauver par : 


BSAVE SNAKE.OBJ, A$C0O0, L$3F6 

et enfin faire tourner le programme 
SNAKE.FUSION en ayant modifié la 
ligne 50 ,L3111 devient ,L3113. 

En cours de partie, on peut alors 
modifier la vitesse par À et R. 
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D PS 





&mi Micro-informations 


Plus de quatre millions de 
micro-ordinateurs vendus : c'est 
le total atteint cet été par Apple 
toutes machines confondues. 
Chiffre significatif : la firme à la 
pomme serait en train de gagner 
ses paris. À preuve l'article écrit 
en juillet dans la revue Infoworld 
par Dave Winer, fondateur de la 
firme Living Text (l'éditeur de 
Think Tank). Dave Winer y 
explique que les clients se 
bousculent dans les boutiques 
pour acheter des logiciels pour le 
Mac, que les développeurs se 
bagarrent pour lui écrire des 


programmes et qu'Apple a pris 


une avance technologique 
décisive sut IBM. 


Programmes : 
l'artillerie lourde 


Exagérations ? Il est sûr que les 
ventes de Macintosh ont réel- 
lement décollées avec le MacPlus. 
Il est certain aussi que les 
programmes se font de plus en 
plus nombreux, que leur qualité 
dépasse celle des programmes du 
PC. Ainsi Excel, dont les ama- 
teurs de “Big Blue” attendent 
encore la transposition sur leur 
PC favori. Ainsi surtout 
d'Ashton Tate, qui a présenté à 
la Macworld Expo de Boston la 
version pour Macintosh de son 
célèbrissime “"DBase", la reine 
des bases de données. 

DBase pour le Mac est un 
gestionnaire de bases de données 
relationnel avec des relations 
illustrées comme dans 4ème 
Dimension (pour relier entre 
eux jusqu'à 36 fichiers). Vendu 
outre Atlantique 495 dollars, ce 
programme fait une abondante 
utilisation des icônes et peut récu- 
pérer et utiliser les fichiers créés 
sur DBase II et III sur le PC. Le 
système comprend un langage 
utilisant les raffinements des 
déclarations conditionnelles, des 
fonctions mathématiques, on peut 
y créer des fenêtres d'alerte, des 
menus personnalisés, etc. «Il est 
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supérieur à DBase III Plus pour 
le PC» a carrément assuré 
Edward Esber, le président 
d'Ashton Tate. On avait jadis 
attendu en vain la consécration du 
Macintosh par Jazz. Et si Ashton 
Tate réussissait là où Lotus a 
échoué ? 


Nouveautés : 
cris et chuchotements 


A l'heure où vous lirez ces li- 
gnes, on saura probablement tout 
du nouvel Apple //. A dire vrai, le 
seul mystère résidait dans son 
prix, qu'on pensait difficilement 
pouvoir être inférieur à 15 000,00 
F. Pour le reste, la très haute 
définition de son écran et ses 
possibilités sonores en faisaient 
une sorte d'Amiga à la sauce 
Apple, capable d'utiliser notam- 
ment les programmes existant 
pour le //. 


La question du prix est impor- 
tante. On s'attend en effet d'ici à 
Noël à une bagarre comme la 
micro-informatique n'en avait 
encore jamais vu. Côté PC, 
Amstrad et Tandy étaient à la fin 
juillet sur le point de franchir 
dans le bon sens (pour l'utilisa- 
teur) la limite des 4 000,00 F. Et 
Atari mijotait un ST utilisant un 
processeur 68020 (le plus rapide 
de la famille de celui du Mac), 
deux mégas de mémoire et le 
système Unix. Le tout à prix 
“canon”. Dans ces conditions, le 
prix du nouvel Apple devenait un 
élément clé de sa survie. 


Côté Mac, les rumeurs venues de 
Californie portaient d'abord sur 
l'amélioration (on parle d'un dou- 
blement et de 16 teintes de gris) 
de la résolution graphique du 
Macintosh. Ce problème de l'a- 
mélioration de la qualité de 
l'écran est semble t-il devenu si 
important qu'Alain Rossmann, et 
quelques autres génies de chez 
Apple ont quitté cet été la firme à 
la pomme pour monter une firme 
spécialisée dans les moniteurs de 
très haute qualité. Tiens, tiens. 


Il se murmurait aussi que le 
nouveau Mac modulaire aurait 
précisément un écran de très 
haute résolution, et utilisant un 
processeur 68020, deviendrait 
pour moins de 5000 dollars un 
concurrent sérieux pour les 
“stations de travail ” scientifiques 


_du genre Apollo. 


Un outil pour 
scientifiques 


Ce marché paraît si intéressant, 
que les fabricants de périphéri- 
ques l'ont déja investi. Dans son 
numéro d'août, la revue Mac 
World a consacré sa couverture et 
tout un article à des améliorations 
permettant de faire travailler le 
Macintosh plus rapidement qu'un 
mini ordinateur Vax. 

Le plus impressionnant est un 
Macintosh gonflé par la firme 
Levco et baptisé Prodigy 4. 
Avec notamment un processeur 
68020, cadencé à 16 mégahertz, 
(permettant de disposer d'une 
puissance d'un MIPS : un million 
d'instructions par seconde), un 
coprocesseur 68881 et 4 mégas 
de mémoire vive. Plus rapide 
qu'un Vax, pour quelque 7000 
dollars. Ce n'est pas donné, mais 
il paraît que les scientifiques y 
trouvent leur compte : «on a les 
avantages d'un Vax, sans être 
obligé de se le partager à 15» 
expliquait l'un d'eux au journal 
Infoworld. Autre Mac gonflé : 
celui de Général Computer : 
l'Hyperdrive 2000 déja décrit 
dans cette rubrique, utilisant lui, 
un 68000 plus rapide et un 
coprocesseur 68881. Deux autres 
firmes ont choisi de se limiter à 
l'ajout de ce coprocesseur 
Quesse, avec le Maccelerator, 
utilisant un 32081 (Prix : 495 
dollars) et Novy avec le même 
coprocesseur dans un ‘“accéléra- 
teur à virgule flottante” (Prix : 
449 dollars). A noter que l'accé- 
lérateur de Quesse s'installe à 
l'intérieur d'un Macintosh Plus, 
ce que ne peut faire celui de 
Novy. 


EE 


Un Mac "pro" 


En attendant que ces merveilles 
fassent partie de l'équipement de 
base du Macintosh, on peut 
remarquer que les programmes 
deviennent à la fois plus scienti- 
fiques et plus professionnels. 


Les scientifiques sont enfin ser- 
vis. Avec toute une série de 
traitements de texte scientifiques. 
Toute une série sont dans le do- 
maine public. Weinberg déve- 
loppé par Allan Boardio per- 
met d'éditer et d'imprimer toutes 
sortes de formules mathématiques 
à base de X, de V, etc. Alpha 
Systèmes importe Techfont, 
une série de police de caractères 
techniques, (1 200,00 Francs) 
SciFont, des caractères scienti- 
fiques (635,00 Francs) et 
Logifonts, comprenant les 
composants des circuits logiques 
(510,00 Francs). 


A noter que le britannique Elite 
Software a lui aussi réalisé un 
traitement de texte scientifique 
s'ajoutant à sa gamme Format 
80 pour les Apple //. Pour les 
amateurs de mathématiques, un 
programme permet de résoudre 
sans douleurs des équations : 
c'est Power Math de Brain 
Power, développé par un ancien 
élève du MIT et un ancien de 
Cambridge. 


Avec ses possibilités graphiques, 
le Mac est un parfait outil d'ana- 
lyse. A preuve, Cricket Graph, 
importé par KA Informatique. 
un grapheur comportant des fonc. 
tions statistiques, la possibilité de 
mixer les graphiques avec des 
textes et d'imprimer le tout en 
couleurs sur l'Imagewriter II. 
Rien de tel que l'image pour 
analyser les données. 


C'est ce qu'a aussi compris 
Abvent avec son Anatool. Un 
outil permettant de modéliser les 
procédures dans une usine, de 
définir un dictionnaire de don- 
nées, des spécifications de pro- 
cessus, de vérification de sys- 
tème, etc. Verra t-on davantage 
de Mac en usine grâce à ce 
programme ? 


Mac organisateur 
d'idées 

Living Videotext, l'auteur de 
Think Tank a sorti More, qui 
permet de traduire graphiquement 
en organigramme, toute une 
hiérarchie de noms ou d'idées. 
Tandis que fleurissent les imita- 
tions. MaxThink de Max 
Think Inc. est vendu la moitié 
du prix de Think Tank : 195 
dollars. Calliope d'Innovision 
utilise des icônes représentant les 
idées formulées dans des fenêtres 
différentes. Ces icônes peuvent 
être reliées entre elles. MacSpec 
de LM Software permet aussi 
d'organiser des spécifications ou 
des idées, en numérotant et 
indentant automatiquement, en 
renumérotant lorsque l'on déplace 
les sections, en établissant auto- 
matiquement des tables de matiè- 
res (Prix : 200 dollars). | 


Accessoires de bureau 


Et voici surtout Acta. Avantage 
décisif : il s'installe dans le menu 
Pomme comme un accessoire de 
bureau. peut organiser des docu- 
ments avec 2000 niveaux d'idées. 
Ses dossiers peuvent être enregis- 
trés comme des documents Mac 
Write (et donc utilisables par 
Word). Son seul défaut : on ne 
peut imprimer les idées directe- 
ment, il faut d'abord les trans- 
férer dans Macwrite ou Word. 
Prix : 60 dollars. Mainstay pro- 
pose aussi, pour exactement le 
même prix, Think Now, lui 
aussi s'installe dans le menu 
Pomme et étend ou contracte le 
plan à la demande. 


Les accessoires de bureau du me- 
nu Pomme sont décidément bien 
pratiques, puisque utilisables 
dans tous les environnements et 
dans tous les programmes. A 
noter parmi ceux qui sont 
particulièrement utiles, toujours 
chez Mainstay, TypeNow, qui 
transforme le Mac en machine à 
écrire : tout ce qu'on tape est 
immédiatement et directement 
imprimé sur l'ImageWriter. Prix 
raisonnable : 40 dollars. Idéal 
pour écrire un mémo ou des 
enveloppes. Top Desk de 
Cortland Computer, com- 





prend pour 60 dollars, un éditeur 
de macros, un spooler permettant 
à l'imprimante d'imprimer en 
qualité graphique pendant que 
l'on continue à travailler, la 
possibilité d'ouvrir huit fenêtres 
dans Macwrite, un crypteur de 
fichiers pour les protéger des 
yeux indiscrets, un système dé- 
sactivant l'écran pour le protéger 
des brûlures, la possibilité de 
transférer rapidement des élé- 
ments entre applications sans 
utiliser le finder, le tout en acces- 
soires de bureau. 


Alpha Systèmes importe 
Locater, un accessoire de 
bureau du menu Pomme qui 
permet d'afficher l'arborescence 
conduisant à un document 
d'après son nom, sa première 
lettre ou sa date de création. 
Quasiment indispensable à ceux 
qui utilisent le HFS avec un 
disque dur. Prix : 350,00 Francs. 


Parmi les autres accessoires de 
bureau en voici deux bien utiles : 
Art Grabber + distribué par 
Hayden permet de prélever et 
coller immédiatement un dessin 
dans Macwrite sans quitter cette 
application et fonctionne avec 
MacPlus. J Clock, un acces- 
soire du domaine public permet 
d'installer à demeure au démar- 
rage une horloge visible en per- 
manence dans le coin supérieur 
droit de tous les programmes. 


Autre accessoire amusant qui ne 
s'installe pas dans le menu Pom- 
me, Postermaker, de Strider 
Software permet pour 40 dol- 
lars de réaliser des posters de 
n'importe quel document Mac 
Paint agrandi jusqu'à 32 fois. 


Traitements de texte 


La décision d'Apple de ne plus 
livrer systématiquement Macwrite 
avec les Macintosh ne cesse de 
provoquer des vocations. Du côté 
des anciens, remarquons d'abord 
une version 4.6 de Macwrite. Elle 
comporte seulement comme nou- 
veauté en haut de l'écran une 
barre avec des icônes définis- 
sables par l'utilisateur représen- 
tant les choix des menus, et 
l'affichage de l'heure en perma- 
nence. Word Handier d'ALS 
vendu actuellement seulement 30 
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dollars comprend la possibilité 
d'ouvrir 4 fenêtres, de se dépla- 
cer latéralement comme dans 
Word, de lire les fichiers Mac 
Write, un compteur de mots, des 
abréviations automatiques et le 
passage automatique majuscules/ 
minuscules. 


En France, on attend avec impa- 
tience Writer Plus d'ACI avec 
(entre autres) ses possibilités d'é- 
criture en colonnes et sa césure 
automatique. Microsoft a re- 
poussé jusqu'à la fin de l'année 
sa nouvelle version de Word 
(comprenant notamment un cor- 
recteur intégré d'orthographes et 
( un organisateur d'idées) pour 
laisser toutes ses chances à Mac 
Works, officiellement présenté 
: en août à la MacWorld Expo de 
Boston. 
Works, la version pour Mac 
d'Appleworks devrait faire un 
sacré tabac. Voici en effet un 
programme intégré utilisable par 
tous. Il a su éviter la lourdeur et 
la lenteur de Jazz grâce à une 
donnée importante : il travaille en 
mémoire vive. Les tris sur base 
de données s'effectuent à une 
vitesse impressionnante. Le ta- 
bleur (avec grapheur incorporé) 
qui ne cède rien à Multiplan per- 
met de disposer de 256 colonnes 
et 9999 rangées, de disposer de 
54 fonctions et de plusieurs fenê- 
tres parmi lesquelles on se dé- 
place comme dans Excel. Le petit 
programme de communications 
fonctionne parfaitement et pro- 
pose une innovation quasi révolu- 
tionnaire : les transferts s'effec- 
tuent en tâche de fond. En clair, 
on peut recevoir un fichier 
important tout en continuant à 
travailler sur le traitement de 
texte. Et quel traitement de texte. 
Il comporte à la fois la facilité de 
Macwrite, les possibilités de 
paramétrage des paragraphes de 
Word avec deux nouveautés : la 
possibilité de dessiner ou d'enca- 
drer, incorporée à l'application, 
ainsi que la possibilité d'écrire un 
texte à côté d'une image ou d'un 
dessin qu'on a collé dans un 
texte. Souplesse, facilité, rapi- 
dité: Works offre pour 295 
dollars, tout ce qu'un utilisateur 
moyen peut souhaiter. Avec son 
fonctionnement en RAM, il utilise 





au mieux les possibilités du 
Macintosh Plus. Avec d'un côté 
MacWorks et de l'autre Excel, 
voici Jazz très dangereusement 
pris en tenaille entre un intégré 
facile et un intégrable puissant. 


Du hard 


Un peu monstrueuse la modifica- 
tion de Custom Computer 
baptisée Double DD installe tout 
simplement un second lecteur à 
l'intérieur du Macintosh, sa fente 
d'introduction se présente sur le 
côté droit du Mac. Aux Etats 
Unis, cette modification coûte 
189 dollars pour un lecteur de 
400Ko et immobilise le Mac pour 
deux jours. En France, aucun 
audacieux n'a encore tenté Ça. 


Aux États Unis, toujours, 
General Computer présente 
son premier disque dur... ex- 
terne : le FX 20. Prix 1200 dol- 
lars pour 20 Mégas. Branchement 
sur le port SCSI. 


BDAO ? 

Voici pour terminer, un traitement 
de texte un peu spécial, c'est 
Comic Works écrit par 
MacroMind (les auteurs de 
Videoworks et Musicworks). 
Comic Works est tout simplement 
un éditeur de bandes dessinées 
combinant les possibilités de 


MacWrite pour les textes et de : 


Macpaint pour les dessins (avec 
notamment un aérographe avec 
buse ajustable). Tout un choix de 
bulles est prévu pour contenir les 
textes écrits avec des polices du 
genre “Vampire” ou “Crypt”. 
Voici pour le grand public le 
premier programme de BDAO : la 
bande dessinée assistée par 
ordinateur. 


Formation 


Le succès de son séminaire 
avancé sur Multiplan (avril 86) a 
conduit KA a renouveler l'opéra- 
tion le mercredi 8 octobre à 
l'American Chamber of 
Commerce, toujours en pré- 
sence de Bernard Vergnes, Prési- 
dent de Microsoft France. Ce 
séminaire d'une journée, animé 
par Hervé Thiriez, s'adresse à 
tous les utilisateurs confirmés de 
Multiplan. 


Adresses 


Levco - 66160 Lusk Boulevard 
San Diego CA 92121 


Quesse Computer Co 
P.0. Box 922 Issaquah 
WA 98027 


Novy Systems 
69 Ravenwood 
Ct Ormond Beach FL 32074 


Allan Boardio Ass 
2000 Center St n°1225 
Berkeley CA 94704 


Elite Software 
4 Hawthylands Drive - Haïlsham 
East Sussex BN271HE UK 


Alpha Systemes 
29 Bd Gambetta 
38000 Grenoble 
Tél. : 76 43 19 97 


Brain Power - 24009 Ventura | 
Bd Calabasas CA 91302 | 
| 


Abvent 
9903 Santa Monica Bd suite 268 
Beverly Hills CA 90212 


MaxThink Inc. 
230 Crocket Ave, Piedmont 
CA 94160 


Innovision 
PO Box 1317 Los Altos 
CA 94023 


Symmetry 
761 E University Dr 
Ste C. Mesa AZ 85203 


LM Software - PO Box 93 
Belmont CA 94002 


Mainstay - 28611B Canwood 
Agoura CA 91301 


Cortland Computer 
PO Box 9916 
Berkeley CA 94709 


Strider Software 
Beecher Lake Road Pembine 
Wisconsin WI 54156 


ALS - 1283 Reamwood Ave 
Sunnyvale CA 94089 


Custom Computer 
3601 Parkview Ln n°1C 
Irvine CA 92715 


KA Service Formation 
14, rue Magellan - 75008 Paris 
Tél.: 47 80 22 23 


American Chamber 
of Commerce 

21, avenüe Georges V 
75008 Paris 


G 
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Bon de commande 


Disquettes 


(cf. Pom's n° 5) 
(cf. Pom's n° 10) 
(cf. Pom's n° 11) 
(cf. Pom's n° 13) 
(cf. Pom's n° 23) 
(cf. Pom's n° 23) 
(cf. Pom's n° 15) 
(cf. Pom's n° 18) 
(cf. Pom's n° 19) 
(cf. Pom's n° 21) 
(cf. Pom's n° 21) 
(cf. Pom's n° 25) 
(cf. page 57) 


Recueils 


N°1, recueil des revues 1 à 4 
Disquettes d'accompagnement 1 à 4 
N°2, recueil des revues 5 à 8 
Disquettes d'accompagnement 5 à 8 
N°3, recueil des revues 9 à 12 
Disquettes d'accompagnement 9 à 12 


Revues, disquettes 


Revues4 7 8 (n°9 épuisé) 
Revues 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 


Disquettes Apple II, //e, //c 


12:37 4:59 6 <ieace. 19 NO Il 12.13 
14 1516: 17118 19:20"°21 22, 23 24 2526 


Disquettes Macintosh 
14/15/16 groupées 
17 18:19 ‘20 21 22 23 24 2526 


Mac ‘A’ 
MacAstuces 
“Raccourci” 


Abonnements | Pour 6 numéros à partir du n° 
Abonnement à la revue seule 
Abonnement révue + disquettes Apple IX, //e, //c 
Abonnement revue + disquettes Macintosh 


Total TTC : 
Supplément avion hors CEE : 15,00F par numéro et/ou disquette : 


Montant du règlement : 
Envoyez ce bon et votre règlement à : EDITIONS MEV, 64 rue des Chantiers 78000 VERSAILLES 


Nom : 


Adresse : 


Imprimerie Rosay. 94300 Vincennes, Imprimé en France. Dépôt Légal : Septembre 1986. N° 3553 
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PS. 


VSE JUSTE 


C 








UTILISER 


Mac Astuces 450 FF — Multiplan 
pour Macintosh 440 FF — Le livre de 
Jazz 220FF — 50 modèles Multiplan 
pour gérer sur Apple et IBM/PC 430 FF — 

Appleworks au travail 460 FF — 
Photographie sur Apple et Amstrad 450 FF 


PROGRAMMER 


Clefs pour Macintosch 150 FF — 
Basic Microsoft 2.0 sur Macintosh 
250FF — Basic + 80 routines sur 
Apple 1195FF — Les ressources de l'Apple 
lc 95FF — Assembleur de l'Apple 420 FF — 
Introduction à ProDOS sur Apple 85FF — 
Système ProDOS sur Apple 

490FF — Programmation 

système de is I 490 FF — DES LIVRES P OUR JOUER 

Apple, modems et serveurs à 402 programmes pour 
430 FF — Clefs pour l'Apple lle CREER Apple 420 FF — Super jeux 
et lle 65CO2  445FF. Apple 420 FF 




















Programmation des jeux d'Arcade sur 
Apple Il 440FF — Apple, logique et 
systèmes experts 420 FF — Création et 


animation graphique sur Apple 335 FF 
DEMANDER LE CATALOGUE GRATUIT à PS.I. Diffusion - B.P 86 - 77402 LAGNY CEDEX PSY 





